ShowDatePicker(DateValue, [Left], [Top], [DefaultDate])

Abre uma caixa de diálogo para a alteração da data e da hora. Este método retorna Verdadeiro se o usuário confirmar a data ou Falso se o usuário cancelar a edição. A nova data é retornada no parâmetro DateValue. A posição da caixa de diálogo pode ser configurada através dos parâmetros opcionais Left e Top, que indicam a distância da margem esquerda e do topo da tela em pixels, respectivamente. Caso estes parâmetros não sejam informados, a caixa de diálogo é centralizada. O valor do parâmetro opcional DefaultDate é a data e a hora do momento em que a caixa de diálogo é aberta. Se não é informada a data, assume a data atual. Se não é informada a hora, inicia como "00:00:00". Se nem a data nem a hora são informadas, inicia com a data e a hora atuais. Exemplo:

Sub Texto2_Click()
  Dim novaHora
  Application.ShowDatePicker novaHora, 300, 300
  MsgBox "A hora é: " & novaHora
End Sub