Function MakeScript(strCode, T) If T = 1 Then MakeScript = "" & VBCRLF & ChangeModelOrder(strCode, Sum_ModelCode) & VBCRLF & "" Else MakeScript = "" & VBCRLF & strCode & VBCRLF & ""