How do you get the data in VB6

You could also get date and time separately using Date() and Time() functions:

Dim dt As Date
Dim tm As Date

'get the date/time now
dt = Date
tm = Time

'display
MsgBox _
"Today is " & Format(dt, "mm/dd/yyyy") & vbCrLf & _
"Time is  " & Format(tm, "hh:nn:ss AMPM")

You can try and do it like so :

Dim strDate As String
strDate = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
MsgBox strDate
MsgBox Format$(Now, "Medium Time")

This site shows you what you can use within the format function, if you use short date within the format function , it will make it display the time in a 24 hour format :)

http://juicystudio.com/tutorial/vb/vbdates.asp