Visual Basic - Consultar nombre de Subrutina

Muy buenas a todos !!!
Estoy necesitando ayuda con los siguiente:

Quiero capturar los errores en Visual Basic 6 y llevarlos a un formulario para mostrarlos de forma mas ordenada.
No tengo problema con ningun dato salvo que quiero mostrar el nombre de la Subrutina y/o Proceso de donde salio el error ...

Ejemplo para que me entiendan
----------------------------------------------

Private Sub Command1_Click()
Call MuestroError(Err.Number, Err.Description, 0, <xxxxxxxx>, Me.Name)
'En este caso lo que quisiera es enviar "Command1_Click"
End Sub

Private Sub MuestroError(Numero As Long, _
Descripcion As String, _
Estado As Integer, _
Proceso As String, _
Formulario As String)
'0 - Critical | 1 - Exclamation | 2 - Information | 3 - Question
Dim Ruta As String

Ruta = App.Path & "imagenes" & Estado & ".ico"

With frmError
Select Case Estado
Case 0
.imgIcono.Picture = LoadPicture(Ruta)
Case 1
.imgIcono.Picture = LoadPicture(Ruta)
Case 2
.imgIcono.Picture = LoadPicture(Ruta)
Case 3
.imgIcono.Picture = LoadPicture(Ruta)
End Select

.txtError.Text = Numero
.txtDescripcion.Text = Descripcion
.txtProceso = Proceso
.txtFormulario.Text = Formulario
End With

frmError.Show vbModal
End Sub


El problema lo tengo en como hago para obtener el nombre del Proceso.
Espero alguien pueda ayudarme ....

Muchas gracias.
Gustavo desde Argentina

No sé cual es el problema, si lo estás pasando como un string ponle el nombre del proceso y ya está

Private Sub Command1_Click()
Call MuestroError(Err.Number, Err.Description, 0, "Command1_Click", Me.Name)
End Sub

Private Sub Command2_Click()
Call MuestroError(Err.Number, Err.Description, 0, "Command2_Click", Me.Name)
End Sub

y así sucesivamente...

Hola P3L30N2009

Agradezco tu respuesta pero justamente lo que no quiero es pasarlo a mano.
Quiero saber si existe algo para poder capturarlo automaticamente cuando esta en ejecucion para que no haya posibilidad de error, ya que justamente lo que quiero es mostrar de donde proviene exactamente el error.

Muchas Gracias,
Gustavo.-