En VB6
Puedes utilizar la funcion Split para separar en cadenas el campo.
Te anexo ejemplo tomado de :
http://www.elguille.info/vb/vb6/stri...ons.htm#vb6_06
Private Sub Form_Load()
'Devolver una cadena con una serie de palabras de un array
Dim tArray() As String
Dim sTmp As String
Dim i As Long
'Asignamos valores de prueba a una cadena
sTmp = "Hola,Mundo,esto,es,una,prueba,de,Split,en,VB6 "
'Creamos un array, cada "substring" se asignará
'a un elemento del array
tArray = Split(sTmp, ",")
'Mostramos la información
'Si no conocemos los índices del array,
'usamos LBound y UBound para que nos lo indique
For i = LBound(tArray) To UBound(tArray)
MsgBox tArray(i)
Next
End Sub