Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        Print("Hello object")

    End Sub

    Private Sub ASCIICase()

        Dim nIn as integer

        ' a select case statement is a clearer way of writing many if....elseif.....if statements

        nIn = Console.ReadLine()

        Select Case nIn

            Case 65

                Print("A")

            Case 66

                Print("B")

            Case 67

                Print("C")

            Case 68

                Print("D")

            Case Else

                Print("Some other character")

        End Select 

    End Sub

    Private Sub Print(sText as string)

        Console.WriteLine(sText)

    End sub

End Module