Для данного натурального числа найдите число число, цифры которого записаны в обратном порядке. (vba)

Sub aaa()
    s = InputBox("Исходное число")
    k = Len(s)
    For i = 1 To k \ 2
        t = Mid(s, i, 1)
        Mid(s, i, 1) = Mid(s, k - i + 1)
        Mid(s, k - i + 1, 1) = t
    Next
    MsgBox s
End Sub