Position of MsgBox

[Konrad]

insert this to module and just try.
sorry I have not too much time CU

Sub test()

'"##### inputbox

a = InputBox(Prompt:="This is your test !", _
Title:="TEST !!!", _
XPos:=350, _
YPos:=350, _
Default:="TEST ???")


'"##### ansver

Select Case a
Case vbOK
MsgBox "Is this what you are looking for ?"
Case vbCancel
MsgBox "You have to wait for the next suggestions"
Case Else
MsgBox "This is not about msgbox but sometimes it's better
to have something then nothing !?"
End Select
End Sub