Valdecirrk, Bom dia !

Seria mais fácil avaliar se você postar a planilha.

Abraços.

Sheets("Registros").Cells(i, 1) = 'esse pedaço indica que vc vai mudar a célula da coluna 1, e o número da linha é i, ou seja, varia.

mid() é uma função que retorna um pedaço de um texto. Ela tem 3 parametros: o texto, a partir de qual caractere, qtos caracteres.

Mid(e.Body, (InStr(1, e.Body, "Empresa:") + 9), (((InStrRev(e.Body, "Tipo Colaborador:")) - (InStr(1, e.Body, "Empresa:"))) - 13))

Um exemplo de mid(), antes de eu continuar:
=MID("FERNANDO",3,3) => Resultado: RNA
=MID("PLANILHANDO",4,1) => Resultado: N

Ao meu ver, esse e.Body é um texto que contém a o trecho "Empresa:" e o trecho "Tipo Colaborador:".
Pela forma como foi escrito, eu adivinho que o conteúdo que vc quer é o nome da empresa que deve estar depois do dois pontos ":" da Empresa e antes do "Tipo Colaborador:".

É o que me parece. Então, respondendo:
Aparentemente essa linha de comando extrai o nome da empresa desse lugar chamado e.Body e escreve nas diferentes linhas da coluna A.

Exemplo, se e.Body valer: Empresa: Planilhando Tipo Colaborador: Ninja
Esse mid retornaria somente o Planilhando

Olha agora fiquei mais convencido que os caras daqui são Ninja mesmo....... caraca muleque.

muito obrigado, agora entendendo a linha de código vou melhorar para minha aplicação.