Private Sub Umwandlung_Click()

Dim x As String
Dim y As String
Dim z As Integer

y = CStr(eingabe)

For z = Len(eingabe) To 1 Step -1
x = x + Mid(y, z, 1)

ausgabe = MsgBox("x")

Next

End Sub

kann mir vielleicht jemand die zwei roten zeilen erklären (was macht das programm da)

eine for-next schleife: z durchläuft die zahlen von len(eingabe) (...also der länge einer variabel namens eingabe) bis eins, für jede durchlaufene zahl wird an den string etwas angehengt: und zwar wird aus y, vom index z, die länge eins "herausgeschnitten" und angehengt