I try to execute a program automatically with the time function, but my
program doesn't work :

Dim MyTime

Private Sub Command1_Click()
MyTime = #7:19:20 PM#
If MyTime = CURRENT_TIME Then
    Beep
    MsgBox "Ca Marche !!", vbInformation
End If

End Sub

Is there anyone able to help me ?

Many thanks from Paris
Philippe

Yes and the comparison is a bit wierd, try datediff.

You might want to try a timer control with a faily small interval and
the datediff funtion.  It would look like the follow, I did test it
and it works.

Private Sub Timer1_Timer()
Dim MyTime As Date
MyTime = #7:07:30 AM#
If DateDiff("s", Time, MyTime) = 0 Then
    Beep
    MsgBox "Ca Marche !!", vbInformation
End If
End Sub