Dim myObject As JavaObject

Dim myError As JavaError

On Error GoTo Catch

Set mySession = new JavaSession()

Set myClass = mySession.GetClass("Invalid")

exit Sub

MessageBox myError.errormsg,, "Error"

mySession.ClearJavaError