Hi
Change the line
If MessageBox.Show(" ... ", MessageBoxButtons.OKCancel, MessageBoxIcon.Information) =MessageBoxButtons.OK then ...
to
If MessageBox.Show(" ... ", MessageBoxButtons.OKCancel, MessageBoxIcon.Information) then ...
and it should (hopefully) work.
Read MSDN for a deeper...