You can use Format() function

MyStr = Format(Time, "Short Time")
MyStr = Format(Date, "Short Date")

And for the Date separator:

Function DateSeparator() As String

Dim s As String * 1

s = Right(Date, 3)
DateSeparator = s

End Function

Usage: MsgBox "Date separator is " & DateSeparator

------------------
smalig
[email protected]
http://vbcode.webhostme.com/