Coloca ese código en un Userform, no en un módulo.
Luego créate un botón con esta macro asociada al mismo (dentro de un módulo):
Código:
Sub lanzar_userform()
'lanzamos el formulario
UserForm1.Show
End Sub
Creo que te falta el macro que lance el Formulario. Una vez lanzado, al cargarse (o iniciarse), es cuando aparecerá la fecha.
Saludos.