الگوریتم محاسبه مقلوب یک عدد

Module Module1

    Sub Main()
        Dim num = 12345
        Dim remainder = 0
        Dim inverted = 0
        While num
            remainder = num Mod 10
            num = num / 10
            inverted = inverted * 10 + remainder
        End While
        MsgBox(inverted)
    End Sub

End Module