@ReplaceSubstring( @Text(@Now) ; " " : ":" : "/" ;"_") input 06/04/2004 11:09:54 AM output 06_04_2004_11_09_54_AM
@ReplaceSubstring( @ReplaceSubstring( @Text(@Now) ;"/" ;"-") ;" " : ":" ;"_") input 06/04/2004 11:32:25 AM output 06-04-2004_11_32_25_AM
Dim timestampstring As Variant timestampstring = Evaluate(|@ReplaceSubstring( @ReplaceSubstring( @Text(@Now) ;"/" ;"-") ;" " : ":" ;"_")|) localpathandfile = "C:\Temp\" & timestampstring(0) & "_" & outputfile