Esta dica é para que gostaria de inserir a data e a hora em seu projeto!!!

(primeiro crie um label no seu userform)

depois coloque em um módulo o seguinte código:

Global onOff As Boolean

Sub MostrarFormulário()
 UserForm1.Show
End Sub

Sub MostrarHoras()
On Error Resume Next
'colocação da data e horas devidamente formatadas
UserForm1.Label1.Caption = Format(Now, "DD-mm-yyyy - hh:mm:ss  ")

'só é executado se o formulário estiver activo
If onOff = True Then
Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras"
Else
  Application.OnTime 0, ""
 End If
End Sub

em seu userform (no active) coloque:

Private Sub UserForm_Activate()
 onOff = True
'inicia o ciclo de a cada segundo actualizar as horas no formulário
Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras"
End Sub