Private Sub Form_Load()
Timer1.Interval = 1000 ' a cada seg sonará un beep.
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm")
'ponemos la hora que deseemos...
If alarma = "12:00" Then
ValorRetorno = Beep(1000, 1000)' en estos valores esta la frecuencia del beep, x lo q puedes cambiar el sonido a tu gusto... :P
End If
End Sub

Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long