Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Greetings")

        Dim s as string "Night is now falling, So ends this day, The road is now calling, And I must away" 

        Dim s as string "Over hills, And under trees, Through lands where never light has shone

        s= "Under Clouds,Beneath the Stars,Over snow, One wintwrs"

    End Sub

End Module