RE:¿como crear archivo txt en visua basic 6.0?
Prueba esto
Private Sub Guardar()
Dim F, A
Set F = CreateObject("Scripting.FileSystemObject")
Set A = F.CreateTextFile("c:\Mi Primer Txt.txt", True)
A.WriteLine "***************************************************************************************************"
A.WriteLine "* ///////////////////////////////////////////////////////////////////////////////////////////// *"
A.WriteLine "* *"
A.WriteLine "* *"
A.WriteLine "* Esto es una prueba, mi primer txt *"
A.WriteLine "* *"
A.WriteLine "* *"
A.WriteLine "* ///////////////////////////////////////////////////////////////////////////////////////////// *"
A.WriteLine "***************************************************************************************************"
A.WriteBlankLines (2)'Lineas Blancas
For i = 1 To 4
A.WriteLine i
Next
A.Close
Set F = Nothing
Set A = Nothing
End Sub