Hi there, VB.NET

I need to write to a text file the values, instead it writes the string

FileOpen(1, "d:\orders\orders.txt", OpenMode.Output)

If LCase(Trim(MyArray(J, 45))) = "yes" Then
OutLine = "TAB(2)," & " Trim(MyArray(J, 38)), "
End If

If LCase(Trim(MyArray(J, 37))) = "new" Then
OutLine = OutLine & " TAB(51), " & " NONE "
Else
OutLine = OutLine & "TAB(51)," & " Trim(MyArray(J, 25)), "
End If

PrintLine(1, OutLine)

orders.txt TAB(2), Trim(MyArray(J, 38)), TAB(51), NONE