Public Class Tester Public Shared Sub Main Dim rightNow As Date = Now Dim result As New System.Text.StringBuilder result.Append("dddd: ").AppendLine(rightNow.ToString("dddd")) Console.WriteLine(result.ToString) End Sub End Class
dddd: Friday