Beh ... la prossima volta dillo chiaramente ... se chiedi un suggerimento, avrai un suggerimento ...

codice:
Dim S As String
S = Now()
S = Replace(S, "/", "")
...
Il codice non e' completo ma potrai farlo tu facilmente ...