Figured it out, just in case someone else needs it.

Sub testwait()

UserForm1.Show vbModeless

TimedDelay 9

MsgBox "wait over"

End Sub


Sub TimedDelay(sec As Single)
Dim x As long
x = Timer + sec

Do While Timer < x
nSec = Round(x - Timer, 0)
UserForm1.Label3 = nSec
DoEvents
Loop
End Sub

Thanks John