Hope This Helps

Diese Funktion erstellt einen Pseudotimestamp , ist ganz gut wenn man Logfiles oder ähnliches schreiben möchte

Function PTimestamp()
Dim JAH,MON,SEK,STU,TAG,MIN
JAH = Year(Now)
If Month(Now) < 10 then
	mon = "0" & Month(Now)
Else
	mon = Month(Now)
End If
If Day(Now) < 10 then
	TAG = "0" & Day(Now)
Else
	TAG = Day(Now)
End If
If Hour(Now) < 10 then
	STU = "0" & Hour(Now)
Else
	STU = Hour(Now)
End If
If Minute(now) < 10 then
	MIN = "0" & Minute(now)
Else
	MIN = Minute(now)
End If
If Second(Now) < 10 then
	SEK = "0" & Second(Now)
Else
	SEK = Second(Now)
End If
PTimestamp = TAG & MON & JAH & STU & MIN & SEK 
End Function

Die Funktion kann dann z.B. so aufgerufen werden.

MsgBox "TEST_" & PTimestamp()