Put this code on the UserForm1 code page, under the OK button click
Private Sub btn_OK_Click()
In a module, place this code
Dim newHour, newMinute, newSecond, waitTime, GetText
Dim x As Integer
[COLOR=#00ff00]'get the text from the user box[/COLOR]
GetText = UserForm1.TextBox1
[COLOR=#00ff00]'see if the Option Button is set[/COLOR]
If UserForm1.OptionButton1 = True Then x = 10 Else x = 0
[COLOR=#00ff00]'guess what this line does[/COLOR]
[COLOR=#00ff00]'Set the wait time[/COLOR]
Application.Wait (Now + TimeValue("0:00:" & x))
[COLOR=#00ff00]'set the textbox to show in the textbox back to what you got above[/COLOR]
UserForm1.TextBox1 = GetText
Hi Bill and thanks -this does work. The problem I have had is with this line: Application.Wait (Now + TimeValue("0:00:" & x)) - it merely SUSPENDS not STOPS(caps fjust for emphasis) execution. The little turning circle for lack of a better term keeps turning until the time is reached before redisplaying Userform1. I really want to STOP then RESTART some sort of a timer. What happens when we turn off our laptops? Any code of this .Wait type won't workbecause the session ends when the computer is turned off.
Would you know how to make Userform1 display(pop up) on say 01/17/2017 at 5:30 AM and display a previously saved Textbox1 message ?
The ideal : a Listbox1 with Times in 30 minute increments combined with a DTPIcker1 calendar dropdown to redisplay a Userfrom1 on ANY future date AFTER the computer is turned off. The code would grab both time and date and displaty Userform1 on that future time and date.
What other way than listing the Time and future calendar date on a separate sheet and searching for that time and date after the computer is turned on again and displaying the form again at the appropriate time - is there, if there is another simpler way ? Can you look at this when you have a chance and let me know?
Thanks for all your help.