Visual Basic - Ayuda con texto (codigo)

Tengo el siguiente codigo y lo que quiero es tomar partes del texto contenido en el documento llamado Archivo.txt, el problema es que no se como y donde colocar contadores para que no me tome en cuenta espacios en blanco ni texto que no me in terese, como en el ejemplo de abajo, lo que necesito es solo el numero y el nombre del empleado pero de una lista de 1000 empleados.

Option Explicit
Dim Linea As String
Dim Texto As String
Dim x As String
Dim A As Integer
Private Sub Command1_Click()
Open "C:\Archivo.txt" For Input As 1
Do While Not EOF(1)
Line Input #1, Linea
x = Mid(Linea, 3, 5)
If x = "" Then
MsgBox "prueba"
End If
Loop
txt1.Text = Linea
txt2.Text = x
End Sub

Ejemplo de Archivo

12/10/2004 Empresa S.A. de C.V.
REG: 123456
***************************************************************
10 Empleado Uno Reg 1234
Direccion
***************************************************************
20 Empleado Dos Reg 5678
Direccion

Prueba a utilizar la funcion split( ), le pasas la linea entera de texto, y te la divide segun el caracter que tu le indiques, guardandotelo en un vector. el vector lo defines simplemente: Dim Nombre_Variable, mirate en la ayuda que dos parametros le pasas a la funcion split, luego recorres el vector mostrando la informacion que tu quieras