Jhodur

Bom dia, estou com um problema na hora de capturar o valor de uma tecla com shift ativado. O problema é que eu quero pegar o sinal * (Multiplicação) do botão do 8 do teclado, mas sempre que faço isso aparece o 8 no visor, a segunda linha do código abaixo trata isso e resolve se passar apenas um vez por esse código, na segunda vez que o 8 toma o lugar do resultado e a segunda linha volta o 8 a zero deixando o resultado da operação anterior zerado e multiplicando o próximo valor por zero. O que eu preciso é pegar o sinal * sem o 8. Se alguém puder me ajudar. Agradeço! If KeyCode = vbKey8 And Shift = 1 Then visor.Caption = Left(visor.Caption, Len(visor.Caption) - 1) Operator_Click (2) End If