MsgBox("Opération réusite", MsgBoxStyle.Information)
' Ma Sub de traitement Public Sub MaSub() Try ' Code de ma sub ' etc ….. ' etc.….. Messagebox.Show("Opération réussie") Catch ex As Exception MessageBox.Show("Une erreur est survenue : " & ex.Message) End Try End Sub