La función Split descompone un String delimitado por un cierto carácter en una matriz. Esta función se encuentra implementada en VB6. Si dispones de una versión anterior usa esta simulación:
Function Split(sVal As String, KeySep As String) As Variant
Dim vAux As Variant
Dim Pos As Integer
Dim I As Integer
ReDim vAux(0)
vAux(0) = sVal
Pos = InStr(sVal, KeySep)
Do While Pos
I = UBound(vAux)
ReDim Preserve vAux(1 + I)
vAux(I + 1) = Right(vAux(I), Len(vAux(I)) - Pos)
vAux(I) = Left(vAux(I), Pos - 1)
Pos = InStr(vAux(I + 1), KeySep)
Loop
Split = vAux
End Function
En todo caso, ten presente que esta es solo una simulación y seguramente debe tener algunos ripios, pero al menos te da la pauta para implementar tu rutina.
Espero que te resulte...
PD. Yo supuse un registro de solo 3 campos (Val01, Val02, Val03). Seguramente tus registros tienen más campos, por lo que tendrás que adaptar el código para que te funcione correctamente