Как получить имя текущей процедуры или функции?

MsgBox "МОДУЛЬ " & Chr(13) & Application.VBE.ActiveCodePane.CodeModule.Name & Chr(13) & Chr(13) & "ПРОЦЕДУРА " & Chr(13) & _
Application.VBE.ActiveVBProject.VBComponents(Application.VBE.ActiveCodePane.CodeModule.Name).CodeModule.ProcOfLine(NumLinProc, 0) & Chr(13) & _
Chr(13) & "ОШИБКА " & Chr(13) & Err.Description & "(" & Err.Number & ")", vbCritical, "ПРОЕКТ " & Application.CurrentProject.Name

Sub SS()
    Dim a As Integer
    On Error Resume Next
1:
2:  a = 6 / 0
3:  a = 6 / 6
 
    MsgBox "Line " & Erl & "   """ & Err.Description & """"
 
End Sub

Sub SS()
    Dim n As Integer  ' количество строк в модуле
    Dim i As Integer: i = 1
    Dim s As String
    Dim cl As Integer ' количество строк  в процедуре
    Dim pn As String  ' имя процедуры
    n = Application.VBE.ActiveCodePane.CodeModule.CountOfLines
    Do
         pn = Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(i, 0)
         cl = Application.VBE.ActiveCodePane.CodeModule.ProcCountLines(pn, 0)
         s = s & "Имя процедуры: " & pn & _
             "    Количество строк: " & cl & vbCrLf
                 i = i + cl
    Loop Until i > n
    MsgBox s
End Sub

Sub a140129_0757()
On Error GoTo err00
Dim j1, j2, j3, jx
j1 = 6
j2 = 0
4: jx = 4: j3 = j1 * "w"
5: jx = 5: Debug.Print 5, j1, j2
6: jx = 6: j3 = j1 / j2
Debug.Print 6, j1, j2, j3
Exit Sub
''
err00:
Debug.Print "метка="; jx, Err.Number, Err.Description
Debug.Print Err.Source
j2 = 2
''Resume Next    ''вернуться на следующую строку
Select Case jx
Case 5
Resume 5       ''вернуться на метку 5
Case 6
Resume 6        ''вернуться на метку 6
Case Else
Debug.Print "прервано="; jx, Err.Number, Err.Description
End Select
 
End Sub

Sub Указание_номера_строки_ошибки2()
Dim i As Long, j As Long
 
On Error GoTo error_handler
 
i = 10
'MsgBox "Деление на ноль!!!"
Debug.Print i \ j
 
exit_statements:
Exit Sub
    
error_handler:
'======================================================================================
Dim startline As Long, startcolumn As Long, endline As Long, endcolumn As Long
VBE.ActiveCodePane.GetSelection startline, startcolumn, endline, endcolumn
 
MsgBox "МОДУЛЬ " & Chr(13) & VBE.ActiveCodePane.CodeModule.Name & Chr(13) & Chr(13) & "ПРОЦЕДУРА " & Chr(13) & _
VBE.ActiveVBProject.VBComponents(VBE.ActiveCodePane.CodeModule.Name).CodeModule.ProcOfLine(startline, 0) & Chr(13) & _
Chr(13) & "ОШИБКА " & Chr(13) & Err.Description & "(" & Err.Number & ")", vbCritical, "ПРОЕКТ " & CurrentProject.Name & _
" (" & ver_Module & ")"
 
Resume exit_statements
'======================================================================================
End Sub

Public Function SomeFun() As Boolean
Const cS = "SomeFun: "
On Error GoTo 100
SomeFun = True 'Флаг ошибки
 
.... <инструкции> ...
 
SomeFun = False 'флаг корректного выхода (должен быть установлен при любом корректном выходе)
Exit Function
100:
MsgBox cS & Err.Description, vbCritical
'Resume
End Function

Sub Test
   On Error GoTo ErrCheck
   '...
 
   Exit Sub
 
ErrCheck:
   MsgBox "Error in Sub: Test"
 
End Sub

MsgBox "МОДУЛЬ " & Chr(13) & _
Application.VBE.ActiveCodePane.CodeModule.Name & Chr(13) & Chr(13) & "ПРОЦЕДУРА " & Chr(13) & _
Application.VBE.ActiveVBProject.VBComponents( _
Application.VBE.ActiveCodePane.CodeModule.Name).CodeModule.ProcOfLine(startline, 0) & Chr(13) & _
Chr(13) & "ОШИБКА " & Chr(13) & Err.Description & "(" & Err.Number & ")", _
vbCritical, "ПРОЕКТ " & Application.VBE.ActiveVBProject.Name