Visual Basic - Varias lineas en txt

Hola, ando queriendo grabar un archivo txt sin que me ponga el texto en el mismo con comillas. Entonces me baje este codigo de aca:

Dim hlngFile As Long
hlngFile = FreeFile
Open FileName For Binary Access Write As hlngFile
Put hlngFile, , StringText
Put hlngFile, , StringText
Close hlngFile
StringToFile = FileLen(FileName)

El problema es que el segundo put no graba el texto en otra linea, sino que lo concatena al final de la primer linea. Intenté concatenarle vbcr o chr(13) y pone un cuadradito.
Espero se entienda, gracias.

proba lo siguiente

Dim a As Scripting.FileSystemObject, b as TextStream

Set b = a.CreateTextFile(NombreArchivo, True)

b.WriteLine texto (esta linea repetila con todos los textos a gurdar en el archivo)

b.close