Imports System
Public Class [MyClass]
End Class '[MyClass]
Public Class ArgExceptionExample
Public Shared Sub Main()
Dim my As New [MyClass]()
Dim s As String = "sometext"
Try
Dim i As Integer = s.CompareTo(my)
Catch e As Exception
Console.WriteLine("Error: {0}", e.ToString())
End Try
End Sub 'Main
End Class 'ArgExceptionExample