Visual Basic - urgente..*.txt

Alguien sabe como generar un txt? necesito pasarle renglon a renglon elementos que contengo en un vector

Fijate con:

Cadena = vbNullString

For i=LBound(Vector) To UBound(Vector)
Cadena = Cadena & Vector(i) & vbCrLf
Next i

FileToString Cadena, "C:\MiArchivo.txt"

La función que puedes colocar en un módulo es:

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

otra forma:

Open App.Path & "\archivo.txt" For Output As #1
For i = 0 To UBound(vector)
Print #1, vector(i)
Next
Close

Saludos