Imports system
 
Module MyProgram
 
  Public Sub Main()
    ' ## Visual Basic .NET representation result ##
 
    'IMPORTANT! Always manually review translated scripts before excecution
 
    Dim MyNum As Decimal
    Console.WriteLine("Please enter your number:")
    MyNum = CDec(Console.ReadLine())
    Console.WriteLine("The absolute value of " & MyNum & " is " & MyAbs(MyNum) & ".")
  End Sub
 
  Function MyAbs(num As Decimal) As Decimal
    If num < 0 Then
      Return -num
    Else
      Return num
    End If
  End Function
 
End Module

SW1wb3J0cyBzeXN0ZW0KCk1vZHVsZSBNeVByb2dyYW0KCiAgUHVibGljIFN1YiBNYWluKCkKICAgICcgIyMgVmlzdWFsIEJhc2ljIC5ORVQgcmVwcmVzZW50YXRpb24gcmVzdWx0ICMjCgogICAgJ0lNUE9SVEFOVCEgQWx3YXlzIG1hbnVhbGx5IHJldmlldyB0cmFuc2xhdGVkIHNjcmlwdHMgYmVmb3JlIGV4Y2VjdXRpb24KCiAgICBEaW0gTXlOdW0gQXMgRGVjaW1hbAogICAgQ29uc29sZS5Xcml0ZUxpbmUoIlBsZWFzZSBlbnRlciB5b3VyIG51bWJlcjoiKQogICAgTXlOdW0gPSBDRGVjKENvbnNvbGUuUmVhZExpbmUoKSkKICAgIENvbnNvbGUuV3JpdGVMaW5lKCJUaGUgYWJzb2x1dGUgdmFsdWUgb2YgIiAmIE15TnVtICYgIiBpcyAiICYgTXlBYnMoTXlOdW0pICYgIi4iKQogIEVuZCBTdWIKCiAgRnVuY3Rpb24gTXlBYnMobnVtIEFzIERlY2ltYWwpIEFzIERlY2ltYWwKICAgIElmIG51bSA8IDAgVGhlbgogICAgICBSZXR1cm4gLW51bQogICAgRWxzZQogICAgICBSZXR1cm4gbnVtCiAgICBFbmQgSWYKICBFbmQgRnVuY3Rpb24KCkVuZCBNb2R1bGU=