こんばんは

例外を以下のように処理しようとしているのですが、
メッセージボックスが表示されずに、通常のエラーメッセージが表示されます
原因は何でしょうか？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　Dim A As String = "aaa"
　Dim B As Integer

　Try
　　　B = CType(A, Integer)
　Catch ex As Exception
　　　MessageBox.Show("Error")
　End Try
End Sub