[Resolvido]Código VBA SendKey F2 não permite preencher correctamente o campo

Boa tarde a todos,

              Criei um BD onde há uma pesquisa onde o usuário preenche o valor desejado e o resultado aparece logo abaixo em um listBox. Ocorre que escrevi um código para que o usurário possa inserir mais de uma letra no List box, porém não sei que escrevi de errado no código que algumas palavras apresentam erro, como por exemplo quando vou escrever "contra" no momento que digito CON, a list box muda sozinho para "COM" e se continuar escrevendo ele apaga o que escrevi.
              Para ilustrar melhor segue abaixo o o BD e o código.
              Agradeço desde já a atenção de todos.



Private Sub Pesquisa_geral_Change()
If VarEspaco = 1 Then
  VarEspaco = 0
Else
   SendKeys "{F2}"
   Me.Recalc
End If
End Sub

abaixo.

faça isso que ira resolver (desmarcar opção substituir texto ao digitar)

Poxa muito obrigado pela ajuda, e eu achando que erro no código.

obrigado pelo retorno, até a proxima