Private Sub Form_Load()
Dim Textfeld(10) As String
Dim i As Integer
 
Dim Schiebe As Integer
Schiebe = scrWerte.Value
 
For i = 0 To Len(Eingabe.Text)
Textfeld(i) = Mid(Eingabe.Text, i, 1)
Next
 
End Sub

Private Sub Start_Click()
 
Ausgabe.Text = Textfeld(0)
 
End Sub

xtfeld(i) = Mid(Eingabe.Text, i, 1)