Formatando a data atual usando o método ToString da estrutura DateTime

'Este exemplo mostra como formatar a data atual
'usando o método ToString

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

    'formata a data usando o método ToString
    Dim formatada = agora.ToString("dd/MM/yyyy")

    'exibe o resultado
    Console.WriteLine("Hoje são: " & formatada)

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