Function aufteilen(wert As Variant, anzahl As Integer) As Integer
 
Dim i As Integer
 
For i = 0 To anzahl
wert2(i) = Mid(wert, i + 1, 1)
Next i
 
For i = 0 To anzahl
MsgBox (i & "0: " & wert(i))
Next i
aufteilen = 1
 
End Function

public wert2() as variant