leer TXT en visual basic

[Dans]

Si tu archivo tiene la estructura que mencionas podrías adaptar las siguientes lineas

Option Explicit

Private Sub Command1_Click()
ArchivoLeer "c:\Prueba\Archivo.txt"
End Sub

Private Sub ArchivoLeer(ByVal ArchivoPath As String)
Dim sCadena1, sCadena2, sCadena3, sCadena4 As String
Open ArchivoPath For Input As #1
Do While Not EOF(1)
Input #1, sCadena1, sCadena2, sCadena3, sCadena4
'Codigo para manipular los valores
Loop
Close #1
End Sub

espero te sirva...