Imports System

Public Module Module1

    Public Sub Main()

        'Print2("Beginning Code")

        Dim sText as string

        Dim sText2 as string = "First Text"

        Dim sText3 as string

        sText = "Some text"

        sText2 = " and some more text"

        sText3 = sText & sText2

        Dim n1 as decimal

        n1 = 50

        Dim n2 as decimal = 12

        Dim n3 as decimal

        n3 = n1/n2

        Print(n1 & "\" & n2 & " = " & n3)

        Print(n1.ToString() & "\" & n2.ToString() & " = " & n3.ToString() )

        Dim nRounded as decimal = Math.Round (n3,2)

        Print ("answer rounded to 2 d.p " & nRounded)

    End Sub

​

    Public Sub Print(sTextToPrint as string)

        Console.WriteLine("using the print sub routine")

        Console.Writeline(sTextToPrint)

    End Sub

    Private Sub IFELSEsimple()

        if n1 = 12

End Module

​

Public Module Module2

    Private Sub Print2(sTextToPrint as string)

        Console.Writeline(sTextToPrint)

    End Sub 

End Module