Vakit geldi Mesajı

[Yüksel Varlı]

Merhaba Arkadaşlar
Userform daki textboxa girilen saat değeri, sistemin saat değeriyle eşit hale gelince "VAKİT GELDİ" mesajı alabilir miyiz?

 

[fedeal]

Private Sub UserForm_Activate()
Do
UserForm1.Caption = Format(Now, "hh:mm:ss")
DoEvents
If UserForm1.Caption = TextBox1.Text Then
MsgBox "vakti geldi"
Else
End If
Loop
End Sub

iyi çalışmalar.

 

[Yüksel Varlı]

Sayın fedeal,
Teşekkür ediyorum. Bu kodlarınızı farklı bir çalışmada kullanmak istiyorum.
Elinize sağlık.