Imports System Public Class MainClass Shared Sub Main() Dim dteData As Date 'Get the current date and time dteData = Now System.Console.WriteLine("Weekday name: " & dteData.ToString("dddd")) System.Console.WriteLine("Month name: " & dteData.ToString("MMMM")) End Sub End Class