Номер строки ошибки при работе с классами

On Error Goto errmes
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim strErrMessage
Dim cur_doc_coll As NotesDocumentCollection
Dim cur_doc As NotesDocument
Set cur_doc_coll = db.UnprocessedDocuments
If cur_doc_coll.Count > 0 Then
If cur_doc_coll.Count < 2 Then
Set cur_doc = cur_doc_coll.GetFirstDocument
End If
End If
Dim spo As New spo
Stop
Call spo.get_docs_charakteristik_kotelnaya(db, cur_doc, "8")
GoOut:
Exit Sub
errmes:
strErrMessage = "Ошибка #" & Err &" <"& Error$ & "> в выполняемой процедуре #" & Getthreadinfo(10) &" подпроцедура #" & Getthreadinfo(1) & ", в строке #" & Cstr(Erl)
Print strErrMessage
Call errorstr(strErrMessage)
Resume GoOut

Class spo
Public Function get_docs_charakteristik_kotelnaya(db As NotesDatabase, cur_doc As NotesDocument, kv As String) As NotesDocumentCollection
On Error GoTo errmes
чего то делаем .... и получаем
Set get_docs_charakteristik_kotelnaya = coll
 
GoOut:
Exit Function
errmes:
strErrMessage = "Ошибка #" & Err &" <"& Error$ & "> в выполняемой процедуре #" & GetThreadInfo(10) &" подпроцедура #" & GetThreadInfo(1) & ", в строке #" & CStr(Erl)
Print strErrMessage
Call errorstr(strErrMessage)
Resume GoOut
End Function
Public Function select_doc_in_docscharakteristiks(coll As NotesDocumentCollection,manual_select_doc As Boolean) As NotesDocument
On Error GoTo errmes
делаем много проверок... выбрали... получили
 
Set select_doc_in_docscharakteristiks = db.Getdocumentbyunid(coll.Getlastdocument.Universalid)
 
GoOut:
Exit Function
errmes:
strErrMessage_rep = "Ошибка #" & Err &" <"& Error$ & "> в выполняемой процедуре #" & GetThreadInfo(10) &" подпроцедура #" & GetThreadInfo(1) & ", в строке #" & CStr(Erl)
Print strErrMessage_rep
Call errorstr(strErrMessage_rep)
Resume GoOut
End Function
Public Function getmaindoc_ofresponce(doc As NotesDocument) As NotesDocument
On Error GoTo errmes
исчем ... и получаем это
Set getmaindoc_ofresponce = db.Getdocumentbyunid(doc.ID(0))
или это  Set getmaindoc_ofresponce = Nothyng
GoOut:
Exit Function
errmes:
strErrMessage_rep = "Ошибка #" & Err &" <"& Error$ & "> в выполняемой процедуре #" & GetThreadInfo(10) &" подпроцедура #" & GetThreadInfo(1) & ", в строке #" & CStr(Erl)
Print strErrMessage
Call errorstr(strErrMessage)
Resume GoOut
End Function
End Class