Oppen msgbox når tiden er nået

Hej eksperter

Jeg har 2 stk koder, hvor jeg kan sidde en tid ind i modul, og aktiver koden med en knap. Det er lidt træls at skulle ind i modul vær gang man skal indstille tid.

de koder jeg har nu ser sådan ud
------------------------
Public Sub Tid3()
Application.OnTime TimeValue("21:55:00"), "Tidsstart"
End Sub

-------------------------

Public Sub Tidsstart()
MsgBox "Klokken er mange - gå dog i seng"
End Sub

---------------------------
Jeg hade tængt mig om man ikke kunne lave sådan at man kunne skrive i ark1 hvad tid msgbox skulle poppe op
jeg har prøvet

Public Sub Tid()
Dim Tid_nu As String
Ark1.Range("B8").Value =Tid_nu
Application.OnTime TimeValue("Tid_nu"), "Tidsstart"
End Sub

men virker ikke
det hade jeg også på fornemmelsen da jeg lavet det

mvh

mvhansen