exit function when COM error

[gcue 8]

i am trying to "Return" out back to the GUI when a COM error occurs but i end up in a long sequence of errors that doesnt seem to end.

Essentially what i would liek to do, is RETURN to the GUI after the first error occurs.

i know my attempt below doesnt make sense because $notes_session isnt being set to anything but wasnt sure how else to return out of the function

thank you

func notes
    $dbobj = AccountInfo_Notes_userDB($server, $database)
    AccountInfo_Notes_getAssocList($dbobj)
endfunc

Func AccountInfo_Notes_userDB($server, $database)

    $notes_session = ObjCreate("Lotus.NotesSession")
    $notes_session.Initialize("password")

    If $notes_session = False Then
        MsgBox(0, "", "2")
        Return
    EndIf
EndFunc

Func COM_Error()

    MsgBox(262144, "Account Info", $COM_Error.description & @CRLF & _
            "" & @CRLF & _
            "Script Line: " & $COM_Error.scriptline)

    Return False

EndFunc   ;==>COM_Error

[trancexx 915]

If $COM_Error.number Then Return

[gcue 8]

perfect!

thank you very much trance