Public Module Example Sub Main() Dim string1 As String = "Today is " + Date.Now.ToString("D") + "." Console.WriteLine(string1) End SubEnd Module