codice:
Private Sub Command1_Click()
    Dim myDate As Date
    Dim intDate As Long
    
    myDate = "1/02/2002"
    MsgBox myDate
    intDate = DateSerial(Year(myDate), Month(myDate), Day(myDate))
    MsgBox intDate
    MsgBox CDate(intDate)
End Sub
E' un esempio, la conversione vera e propria è data dalle stringhe in grassetto.

Ciao