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.Write("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

SW1wb3J0cyBzeXN0ZW0KCk1vZHVsZSBNeVByb2dyYW0KCiAgUHVibGljIFN1YiBNYWluKCkKICAgICcgIyMgVmlzdWFsIEJhc2ljIC5ORVQgcmVwcmVzZW50YXRpb24gcmVzdWx0ICMjCgogICAgJ0lNUE9SVEFOVCEgQWx3YXlzIG1hbnVhbGx5IHJldmlldyB0cmFuc2xhdGVkIHNjcmlwdHMgYmVmb3JlIGV4Y2VjdXRpb24KCiAgICBEaW0gTXlOdW0gQXMgRGVjaW1hbAogICAgQ29uc29sZS5Xcml0ZSgiUGxlYXNlIGVudGVyIHlvdXIgbnVtYmVyOiIpCiAgICBNeU51bSA9IENEZWMoQ29uc29sZS5SZWFkTGluZSgpKQogICAgQ29uc29sZS5Xcml0ZUxpbmUoIlRoZSBhYnNvbHV0ZSB2YWx1ZSBvZiAiICYgTXlOdW0gJiAiIGlzICIgJiBNeUFicyhNeU51bSkgJiAiLiIpCiAgRW5kIFN1YgoKICBGdW5jdGlvbiBNeUFicyhudW0gQXMgRGVjaW1hbCkgQXMgRGVjaW1hbAogICAgSWYgbnVtIDwgMCBUaGVuCiAgICAgIFJldHVybiAtbnVtCiAgICBFbHNlCiAgICAgIFJldHVybiBudW0KICAgIEVuZCBJZgogIEVuZCBGdW5jdGlvbgoKRW5kIE1vZHVsZQ==

LTc4Ljk4Cg==

-78.98