Module Module1 Sub Main() ShowMessage() End Sub Sub ShowMessage(Optional ByVal strText As String = "Hello there!") System.Console.WriteLine(strText) End SubEnd Module Hello there!