Função de "recortar" nomes

Function GetNomeSchema(NomeCompletoDoArq As String) As String
For lCount = Len(NomeCompletoDoArq) - 17 To 1 Step -1
If Mid(NomeCompletoDoArq, lCount, 1) = "\" Then
GetNomeSchema = Mid(NomeCompletoDoArq, lCount + 1, Len(NomeCompletoDoArq) - lCount - 19)
Exit Function
End If
Next lCount
End Function

Não fui eu quem escreveu a função acima, mas o objetivo dela é o seguinte:

Pegar o caminho do arquivo e colocar dentro de NomeCompletoDoArq.

C:\GDT_Folders\Backups\Versao\Ora9\M_ORA9_09_201103221310.DMP

E recortar tudo o que estiver antes da última "\" e tudo o que estiver depois do último "_".

Feito isso, terei o nome da base de dados que desejo restaurar.

Porém, a função está recortando os dois últimos caracteres do nome da base (ao invés de pegar M_ORA9_09, está pegando apenas M_ORA9_.

Alguém poderia me dar uma luz de como resolver isso?