Olá
não dá pra capturar a linha do erro no VB6, você até pode fazer uma adaptação, mas dobraria todas as linhas do seu projeto.
eu aqui uso o MZTOOL para criar rotinas de erro automaticamente facilitando a minha vida.
o MZTOOL é gratuito e vc acha ele na seção de links aqui do VBWEB (ou utilitarios, eu acho :-)