Te voy a poner esto como última vez. No te has molestado en leer nada en mi opinión.
la fecha la puedes obtener por ejemplo de esta forma
Código:
dim Fecha as date
fecha=format(now,"dd-mm-yy")
label1=fecha
Podría haber hecho directamente
Código:
label1=format(now,"dd-mm-yy")
Un saludo