Exibindo a data e hora no formato longo usando a função Format e a propriedade DateTime.Now

'Este exemplo mostra como exibir a data e hora
'completa usando a função Format e a propriedade
'DateTime.Now

Module Module1
  Sub Main()
    Dim agora As DateTime = DateTime.Now

    Console.WriteLine(Format(agora, _
      "dddd, dd ""de"" MMMM ""de"" yyyy - hh:mm:ss"))

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module