Private Sub Form_Load()
 
    Dim strArray() As String
    Dim Wert As String
        Wert = "wahd9823e9oj3vä"
 
    Dim intResult As Integer
        intResult = aufteilen(Wert, strArray)
 
 
End Sub
 
Public Function aufteilen(Wert As String, strArr() As String) As Integer
 
Dim i As Integer
 
    ReDim strArr(Len(Wert))
 
    For i = 0 To Len(Wert)
        strArr(i) = Mid(Wert, i + 1, 1)
    Next i
 
    For i = 0 To UBound(strArr)
        MsgBox (i & "0: " & strArr(i))
    Next i
 
    aufteilen = 1
 
End Function

Dim strChar As String
        strChar = Right(Text1.Text, 1)
 
        MsgBox strChar

Mit freundlichen Gr??en,
Andy G.