Sub Initialize
Dim jsession As JavaSession
Dim jclass As JavaClass
Dim jObject As JavaObject
Dim jerr As JavaError
On Error GoTo Catch
Set jsession = New JavaSession
Set jclass = jsession.GetClass("my.javaMain")
Set jObject = jclass.Createobject()
MesssageBox jObject.getMessage()
Catch:
MessageBox "LS Error: " & Error
Set jerr = jsession.GetLastJavaError()
ret=ErrorHandling1(jerr.ErrorMsg())
MessageBox " Stack trace: " & jerr.Stacktrace()
jsession.Clearjavaerror
End Sub