Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Public Function GetTime(vDtTime As Date)
    GetTime = Format(vDtTime, "hh:mm:ss")
End Function
Public Sub MyThread(ByVal lpStartAddress As Long)
    CreateThread ByVal  0 &, ByVal  0 &, AddressOf lpStartAddress, ByVal  0 &, ByVal  0 &, hThreadID
End Sub

Dim Mycls As New Class1
Private Sub Command1_Click()
    Debug.Print Mycls.GetTime(Now)
    Mycls.CreateThrui DoAny
End Sub
Public Sub DoAny()
Dim i As Long
For i =  1  To  500000 
    Debug.Print i
Next i
End Sub