DUDA "Función InStr en evento keypress de un textbox"

[calichecal]

MI DUDA ES LA SIGUIENTE AGRADESCO SU ATENCION =estoy haciendo un programa que en determinada parte va contando los caracteres que se vallan escribiendo en un textbox y los va visualizando en otro:

Private Sub text1_keypress(KeyAscii As Integer)
t3.Text = Len(text1.Text) + 1
t3.Text = verificar_tecla_retroceso(KeyAscii) - Val(t3.Text)

como ven luego llamo ala funcion que contiene el procedimiento=

Function verificar_tecla_retroceso(tecla_presionada_retroce so)
Dim retroceso As Integer
retroceso = vbKeyBack
If InStr(1, retroceso, Chr(tecla_presionada_retroceso)) Then
verificar_tecla_retroceso = 1
Else
verificar_tecla_retroceso = 0
End If
End Function

lo que quiero es que me deje de contar la tecla retroceso como otro caracter y mas bien me reste en t3.text que seria lo indicado,pero por alguna razon no me sirve, agradesco al que me ayude aver donde me estoy equivocando,yo no doy con el chiste...(la palabra retroceso siempre esta bien escrita ,no se por que me sale asi )

[David]

En este caso, basta con hacer una comparación de igualdad, ya que lo que recibes como parámetro es el KeyAscii:

Código vb:

If tecla_presionada_retroceso = vbKeyBack Then
    '/* Es retroceso */
Else
    '/* No es */
End If
 

Aunque creo que lo mejor sería usar el evento Change para el efecto .