I have an userform that gives the user a message in the string UserMessage.
I want to replace the MsgBox with the UserMessage to a ("WScript.Shell").PopUp message that should disappear after 1 second.
UserMessage = " added"
This code gives me the following output " added" where as I would like to see "UserMessage added".CreateObject("WScript.Shell").PopUp UserMessage & " added", 1
???CreateObject("WScript.Shell").PopUp "UserMessage" & " " & "added", 1
Hi nigelog, your answer works perfectly! Thank you!
Glad to help
I am now trying to change the Caption of the PopUp away from Windows Script Host
Please post here if you succeed in changing the caption!
This works to display ERROR! as the caption
CreateObject("WScript.Shell").PopUp "Enter 0 ", 1, "ERROR!!"
It works great. I did see however that mystring UserMessage gets passed as text and not as a string.
It says "UserMessage added".
Say UserMessage is nigelog, then I want it to say "nigelog added".
CreateObject("WScript.Shell").PopUp UserMessage & " " & "added.", 1, "Added "
I don't quite get where you are going with this but if you want the user name then
Finally got what you were sayingSub Popup() CreateObject("WScript.Shell").Popup Application.UserName & " " & "added", 1, "Item Added" End Sub
Sub Popup() Dim UserMessage As String UserMessage = "My addition was" CreateObject("WScript.Shell").Popup UserMessage & " " & "added", 1, "Item Added" End Sub
Last edited by nigelog; 08-23-2018 at 11:11 AM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks