Hola:
Suponiendo que pudieses delimitar distintos separadores, podrías utilizar algo similar a esto:
Código vb:
Ver originalPrivate Function DatoEntre(Origen As String, Desde As String, Hasta As String) As String
Dim Inicio As Integer, Fin As Integer
Inicio = InStr(Origen, Desde)
Fin = InStr(Origen, Hasta)
If Inicio = 0 Or Fin = 0 Then Exit Function
Inicio = Inicio + Len(Desde)
DatoEntre = Trim$(Mid(Origen, Inicio, Fin - Inicio - 1))
End Function
Esta funcion te permite 'coger' el dato contenido entre dos palabras, por ejemplo, pero en tu caso dudo que te sirva, de todos modos al desconocer si todos los registros tienen la misma extructura es dificil darte una solución.
Si son todos iguales en forma, simplemente debes utilizar la funcion MID$ para conseguir los datos deseados.
Saludos