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