Dim sNachname As String
Dim sVorname As String
Dim nPos As Long
 
sName = "Schmidt, Hubert"
nPos = InStr(sName, ",")
If nPos > 0 Then
  sNachname = Left$(sName, nPos - 1)
  sVorname = LTrim$(Mid$(sName, nPos + 1))
Else
  sNachname = sName: sVorname = ""
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de