Popup_msgbox

Sub Popup_msgbox()

Dim PoPMsgBox As Object

Set PoPMsgBox = CreateObject("WScript.Shell")

Dim PoPMessage As Integer

Dim Sec As Integer

Sec = 1

For i = 1 To 10

PoPMessage = PoPMsgBox.Popup(i, Sec, "Title", 0)

Next

End Sub

MsgBox "if yes... else no ..." construction

Sub MessageBox()

answer = MsgBox("Choose:" & vbNewLine & "YES for action #1" & vbNewLine & "NO for action #2", vbYesNo)

If answer = vbYes Then

MsgBox "You chose YES"

Else

MsgBox "You chose NO"

End If

InputBox

Sub Input?Box()

Data = InputBox("Input number", "Title")

MsgBox "You entered number: " & data

End Sub