[RESOLVED] What's wrong with my MessageBox ?

[Static]

you need to catch whats being clicked...

like this

IF msgbox(ask,vbYesNo+vbCritical,"Delete") = vbNo then exit sub

or set it to a variable

Dim Result as Integer = msgbox(ask,vbYesNo+vbCritical,"Delete")

etc