Consegui Achar o erro, tinha uma outra formula inteferindo.

Segue o código correto.

Private Sub cb_despesa_AfterUpdate()

Dim intervalo As Range
Dim codigo As String
Dim dados As Range
Dim Mes As String

On Error GoTo Erro

Mes = Txt_Data_Despesa
codigo = cb_despesa
Sheets("Teste").Select
Set intervalo = Range("O1:P3")
Set dados = Range("R1:S12")

Pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
Pesquisa2 = Application.WorksheetFunction.VLookup(Right(Left(Mes, 5), 2), dados, 2, False)

txt_Conta = Pesquisa
txt_Mes_Despesa = Pesquisa2

Exit Sub

Erro:
texto = "Não foi localizado nenhum Conta Razão correspondente a Despesa, Escolha novamente a Despesa..."
mensagem = MsgBox(texto, vbOKOnly + vbInformation)

End Sub

Segue planilha com o código funcionando.
https://drive.google.com/file/d/0B0R8Wi ... sp=sharing

Abs,