Como retornar o dia do mês para a data atual

'Este exemplo mostra como extrair o dia do mês da data
'atual

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

    'obtém o dia do mês.
    Dim dia As Integer = agora.Day

    Console.WriteLine("O dia do mês para esta data é: " & dia)

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