Visual Basic - Recorrer un fichero

Hola miren mi problema es:
Tengo un fichero en word con una serie de datos , quiero ir recorriendo el fichero coger su contenido y llevarlo a una base de datos.
Ejemplo. En el fichero de texto esta esta informacion:
1.- AGUDO DE LA FUENTE JUAN A.
D.N.I.:1743762-V
C/2038-1157-3000032298 CAJA MADRID (N1157)Humanes,1 (Madrid)
TRAVESÍA JUSTINA RUEDA

meter el nombre en un campo de una base de datos ,el DNI otro
y asi.

SI me pudieran ayudar, por favor.
Bueno gracias por adelantado.

Hola podrias usar esto.
Primero levantas todo el archivo

Esta funcion esta en un Modulo de Clase llamado clsArchivo

Public Function LeeArchivo() As String
Dim cadena As String
Close #1: Open "C:\Temp\Prueba.txt" For Input As #1
cadena = Input$(LOF(1), 1)
LeeArchivo = cadenaClose #1
End Function

En otra funcion usas el Split y vas separando por linea

Esta funcion esta en un Modulo de Clase LLamado clsPersona

Public Function LeeLinea()
Dim i As Byte
Dim X As Variant
Dim cdato As clsArchivo
Set cdato = New clsArchivo
Dim m As Integer

cdato.LeeArchivo 'LLAMO A LA FUNCION LEEARCHIVO

cadena = Split(cdato.LeeArchivo, vbCrLf) 'SEPARA POR FIN DE LINEA AL ARCHIVO ME DA UNA COLECCION DE REGISTROS(LINEAS)
'CUENTO CANTIDAD DE REGISTROS
cantReg = 0
For Each X In cadena 'X no es nada
cantReg = cantReg + 1 'ME DA LA CANTIDAD DE COLECCIONES
Next

For m = 0 To cantReg-1
tuTabla(tucampo) = cadena(m) 'VAS METIENDO LOS REGISTROS EN DONDE TU QUIERAS
Next

Espero que esto te ayude

Saludos
Hector

End Function