Making a milliesec in vb6

Can you improve my code.

It after you subtract 2 dates from each other.
And then you want to find out have much time the is between it.
Sometime you want to find that out in millisec.
It easly done in 2010 version.
Whit at "ts.TotalMilliseconds"

Code:

---

Public Function MyTimeReturnMillisec(TimeCheck As Date) As String
    Dim Min As Integer
   
    Dim timetekst As String
    timetekst = "0"
   
    If Hour(TimeCheck) > 1 Then
        timetekst=val(timetekst) + (hour(TimeCheck) * 60 * 60 * 100)
    End If
   
   
    If Minute(TimeCheck) > 0 Then
        timetekst = Val(timetekst) + ((Minute(TimeCheck) * 60) * 100)
    End If
   
    If Second(TimeCheck) > 0 Then
        timetekst = Val(timetekst) + (Second(TimeCheck) * 100)
    End If

    Min = Format(TimeShow, "ss") & Right(Format(Timer, "#0.00"), 2)
   
    timetekst = Val(timetekst) + Min
   
    MyTimeReturnMillisec = timetekst
End Function

---