Name Vorname extrahieren

Sub EintragTesten()
Dim Bereich As Range
Dim Zelle As Range
Dim L As Integer
Dim K As Integer
Dim C As String
Dim I As Integer
Dim TbNr1 As String
Dim TbNr2 As String
Dim uf As Object
Set uf = UF_ZelleLesen
Sheets("Tabelle3").Activate
Set Bereich = Range("A:A")
For Each Zelle In Bereich
If IsEmpty(Zelle) Then Exit For
L = Len(Zelle)
If L > 60 Then
L = 60
uf.Label1.Visible = True
uf.Label1.Caption = "Achtung: der Eintrag ist länger als 60 Zeichen!"
End If
uf.TextBox1.Value = Zelle.Value
For K = 1 To L
TbNr1 = LTrim(Str(K + 1))
I = K + 61
TbNr2 = LTrim(Str(I))
C = Mid(Zelle, K, 1)
uf.Controls("TextBox" & TbNr1).Value = C
uf.Controls("TextBox" & TbNr2).Value = Asc(C)
Next K
DoEvents
' Debug.Print Zelle
Next Zelle
End Sub