Retouch code to set alarm via Userform/Inputbox

[Oprichnick]

Hello, with some book help, I wrote this code:

Sub Data()
Dim dtime As Date
Dim Ans As Integer
    Ans = MsgBox("Have you transfered the data today?", vbYesNoCancel)
        If Ans = vbYes Then
            MsgBox ("Ok, Keep Your Work")
        ElseIf Ans = vbCancel Then
            Exit Sub
        Else
            MsgBox ("Please transfer data")
End If
End Sub
Sub DataReminder()
Dim dta As String
dta = MsgBox("Do you want to turn the data transfer alarm on?", vbYesNo)
    Select Case Lch
        Case vbYes
            GoTo DataTransfer
        Case vbNo
            Exit Sub
    End Select
        
DataTransfer:
Application.OnTime TimeSerial(1, 3, 0), "Data"
End Sub
Sub Workbook_BeforeClose(Cancel As Boolean)
    dtime As Date
    Application.OnTime dtime, "Data", False
End Sub

However, now I want to set the alarm using an InputBox or preferably a Userform... But I'm clueless... Stay Good

 

[JLGWhiz]

dta = MsgBox("Do you want to turn the data transfer alarm on?", vbYesNo)
    Select Case Lch

That snippet won't work, anyhow. You will probably not even get an error message to tell you it is a mismatch. "Lch" is not defined anywhere that I can see. I think it should be 'dta'.
I question why you would even bother with a message box, input box or UserForm. Just put a button on the sheet with a caption, "Set Alarm" and attach this modified version to it;

Sub DataReminder()
Application.OnTime TimeSerial(1, 3, 0), "Data"
End Sub

If somebody wants to set the alarm, they just click the button.

 

[Oprichnick]

Uhm... Yes "Lch" is supposed to be "dta". I know I may do it as you said, however I just want to know how can I do it as I asked...