http://otvet.mail.ru/question/90805255

Module Module1
    Function Reverse(a As Integer, b As Integer) As Integer
        Dim c As Integer
        If a <> 0 Then
            c = Math.Truncate(Math.Log10(a)) + 1
            Reverse = b * 10 ^ c + Reverse(a \ 10, a Mod 10)
        Else
            Reverse = b
        End If
    End Function
    Sub Main()
        Dim a As Integer
        a = Console.ReadLine()
        'a = 9998
        Console.WriteLine(Reverse(a, 0))
    End Sub

End Module