Archivos TXT leer para VB

[piojoman]

tambien puede ser asi:

Private Sub Form_Load()
Dim Dato As String, aux as byte, x as integer, VariableAux as string

aux = 1
For x = 1 To Len(Tex.Text)
Dato = Mid(Text1.Text, x, 1)
If (Asc(Dato) <= 26) Then 'le tire hasta el codigo 26 porque no estaba seguro, pero me parece que con 15 ya detecta el enter
If (aux = 4) Then
MsgBox VariableAux 'Aca tenes que reemplazarlo por el codigo de armar un txt aparte, no tenia ganas de hacerlo
aux = 1
VariableAux = ""
Else
aux = aux + 1
VariableAux = VariableAux + Dato
End If
Else
VariableAux = VariableAux + Dato
End If
Next
End Sub