El Error es cuando mandas el mensaje???, te lo pregunto por que segun yo esta mal declarado, deberia ser algo asi.
Código VB.Net:
Ver originalif error = 1 then
msgbox("Existe el sgte error" & error_name, MsgBoxStyle
.Information)
La ultima parte es opcional, o podrias poner algun otro estilo.