Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public sub Calcoz(grams as decimal)

        dim ounces as decimal

        ounces = grams / 28.3495

        Console.WriteLine(grams & "g is approximately " & ounces & "oz.")

    End sub 

​

    Public Sub Main()

        Dim grams As Decimal

        Console.WriteLine("Mass converter v1.0")

        Console.WriteLIne("-------------------" & vbCrLf)

        Console.Write("Please enter a mass in grams: ")

        grams = Console.ReadLine()

        Calcoz(grams)

    End Sub

End Module