Como retornar o dia da semana como um valor inteiro

'Este exemplo mostra como obter o dia da semana como
'um valor inteiro. Domingo = 0, Sábado = 6

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

    'obtém o dia da semana como inteiro
    Dim diaSemana As Integer = agora.DayOfWeek

    Console.WriteLine("O dia da semana é: " & diaSemana)

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