Dividir un campo separado por comas

Debes crear dos tablas
Nombres --> que tenga el cambo nombre (apellido, nombre)
Nombres1 -->sin datos y con dos campos nombre -apellido
Private Sub Comando0_Click()
Dim Base As Database
Dim Tabla As Recordset
Dim nom As String
Dim MisClases As New Collection
Dim MisObjetos As Object
Set Base = DBEngine.Workspaces(0).Databases(0)
Set Tabla = Base.OpenRecordset("nombres", DB_OPEN_DYNASET)
Tabla.MoveFirst
If Tabla.NoMatch Then
MsgBox "no sigue"
End If
While Tabla.EOF = False
num = num + 1
nom = Tabla!Nombre
MisClases.Add Item:=nom, Key:=CStr(num)
Tabla.MoveNext
Wend
Tabla.Close
Set Tabla = Base.OpenRecordset("Nombres1", DB_OPEN_DYNASET)
On Error Resume Next
For Each MiObjeto In MisClases
Tabla.AddNew
Tabla!Nombre = Mid(MiObjeto, InStr(MiObjeto, ",") + 2)
Tabla!apellido = Mid(MiObjeto, 1, InStr(MiObjeto, ",") - 1)
Tabla.Update
Next MiObjeto
Tabla. Close
Base. Close
End Sub
Espero que te sirva ya que me sforcé demasiado para hacerlo