Sub raczek()

Do
    liczba = InputBox("Podaj dowolna; liczbe;", "Liczba", 123)
    If liczba = "" Then Exit Sub
    If IsNumeric(liczba) Then

        liczba2 = ""
        For i = Len(liczba) To 1 Step -1
            strZnak = Mid(liczba, i, 1)
            liczba2 = liczba2 & strZnak
        Next i
        
        MsgBox liczba2
        
        Exit Do
    Else
        MsgBox "Podaj poprawna; liczbe;"
    End If
Loop

End Sub

Sub raczek()
Do
liczba = InputBox("Podaj dowolną liczbę", "Liczba", 123)
If liczba = "" Then Exit Sub
If IsNumeric(liczba) Then
    MsgBox StrReverse(liczba)
        Exit Do
            Else
                MsgBox "Podaj poprawną liczbę"
                    End If
Loop
End Sub