Visual Basic - Leer un .txt y partirlo por medio de la funcion Split

Sub SplitfilebyLine()

Dim a() As String, s As String

Dim i As Integer

-abres el archivo ya esto tu lo haces y lees por linea

a = Split(LINEA, ";")     --aqui va la LINEA que leiste del archivo

For i = 0 To UBound(a)

Me.Print a(i) aqui en cambio lee los campos  0 sera el codigo 1 el nombre dos el telefono

Next i

Y esto se repetira hasta leer todo el archivo..

disculpa por no poner todo esoty desde el mobil

End Sub