Private Sub CreateCall_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you wish to create a item for this customer?"
Style = vbYesNo + vbCritical + vbDefaultButton1
Title = "Confirm Create Item"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help...