pues esta facil mi chavo primero tienes que hacer un timer a ese timer le tienes que dar un intervalo de riempo de 1000 despues dentro del timer poner
text1 = Format(Now, "hh:mm:ss") // este nos muestra la hora
text2 = Format(Now, "dd/mm/yyyy") // este nos muestra la fecha
como su nombre lo dice el text1 y el text2 son cuadros de texto en los que se muestran los datos ya si quieres hacerlo en un boton pues pones el mismo codigo en el boton y lo mandas a un msgbox
text1 = Format(Now, "hh:mm:ss") // este nos muestra la hora
text2 = Format(Now, "dd/mm/yyyy") // este nos muestra la fecha
como su nombre lo dice el text1 y el text2 son cuadros de texto en los que se muestran los datos ya si quieres hacerlo en un boton pues pones el mismo codigo en el boton y lo mandas a un msgbox