Private Sub UserForm_Initialize
    TEST.loadingdots
End Sub

Public Sub loadingdots
    Debug.Print 4
    Application.OnTime Now + TimeValue("00:00:02"), "loadingdots"
End Sub