Prueba esto son varias rutinas dependiendo del tipo de escritura y lectura que desees hacer
'-----------------------------------
Private Sub GuardarArchivo(Ruta As String, Nombre_Extencion As String)
Dim F, A
Set F = CreateObject("Scripting.FileSystemObject")
Set A = F.CreateTextFile(Ruta & "\" & Nombre_Extencion, True)
A.WriteLine "Esto escribe una cadena y un final de línea en la secuencia"
A.Write "Esto escribe una cadena en la secuencia. "
A.Write "Pero permite escribir luego en la misma linea."
A.WriteBlankLines (3) 'Deja 3 o n lineas en blanco
For i = 1 To 5
A.Write i
Next
A.Close 'cierra el archivo
Set F = Nothing 'Destruye los objectos
Set A = Nothing 'Destruye los objectos
End Sub
'--------------------------------------------------------
Private Sub LeerArchivo1(Ruta As String, Nombre_Extencion As String)
'Para leer un archivo qie tienen varias lineas, el textbox se le definen las propiedades
' MultiLine = True; ScrollBars = 1 ó 2 ó 3
Dim F, A
Set F = CreateObject("Scripting.FileSystemObject")
Set A = F.OpenTextFile(Ruta & "\" & Nombre_Extencion, 1)
'Para leerlo tenemos dos formas
'La primera leerlo de un solo.
Text1.Text = A.ReadAll
A.Close
Set F = Nothing 'Destruye los objetos
Set A = Nothing 'Destruye los objetos
End Sub
'-----------------------------------------------------------------------
Private Sub LeerArchivo2(Ruta As String, Nombre_Extencion As String)
Dim F, A
Set F = CreateObject("Scripting.FileSystemObject")
Set A = F.OpenTextFile(Ruta & "\" & Nombre_Extencion, 1)
'----------La segunda leerlo por partes
'a) si lo queremos leer todo linea a linea
While A.AtEndOfStream = False ' hasta que no se termine el archivo sigue leyendo
Text1.Text = Text1.Text & vbNewLine & A.ReadLine
Wend
A.Close
Set F = Nothing 'Destruye los objetos
Set A = Nothing 'Destruye los objetos
End Sub
'-----------------------------------------------
Private Sub LeerArchivo3(Ruta As String, Nombre_Extencion As String)
Dim F, A
Set F = CreateObject("Scripting.FileSystemObject")
Set A = F.OpenTextFile(Ruta & "\" & Nombre_Extencion, 1)
'b) Si lo queremos Leer por partes
Text1.Text = A.Read(8) 'Lee los primeros 8 caracteres
A.Skip (9) 'Brinca 9 espacios
Text1.Text = Text1 & A.Read(10)
A.SkipLine 'Se brinca una linea
Text1.Text = Text1.Text & vbNewLine & A.ReadLine
A.Close
Set F = Nothing 'Destruye los objetos
Set A = Nothing 'Destruye los objetos
End Sub
Suerte.