Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim C, O, N, H, P, M as Decimal

        Console.WriteLine("Enter number of Carbon Atoms")

        C = Console.ReadLine

        C = C * 12

        Console.WriteLine("Enter number of Hydrogen Atoms")

        H = Console.ReadLine()

        Console.WriteLine("Enter number of Oxygen Atoms")

        O = Console.ReadLine

        O = O * 16

        Console.WriteLine("Enter number of Nitrogen Atoms")

        N = Console.ReadLine

        N = N * 14

        Console.WriteLine("Enter number of Phosphorus Atoms")

        P = Console.ReadLine

        P = P * 31

        M = C + O + N + H + P

        Console.WriteLine("The Molar Mass is " & M)

    End Sub

End Module

​