Public Class 
    Dim Eingabe As String
    Dim i As Integer
    Dim Anzahl As Integer
    Dim Speicher As String
 
    Private Sub cmdUmdrehen_Click
      Eingabe = txtEingabe.Text
        Anzahl = Eingabe.Length
        For i = 1 To Anzahl
            Speicher = Mid(Eingabe, i, 1)
 
            lstAusgabe.Items.Add(
        Next
    End Sub
End Class