Listado de Programadores

hola a todos saludos dede Chie, Pregunta tengo un problema con keyup la siguiente linea aparece lo siguiente vb6.0 & spreadshet

Private Sub TxCp1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then
Set f_Buscar.texbox = TxCp1
f_Buscar.columna = 2
f_Buscar.WindowState = 0
f_Buscar.tx_busca.Text = TxCp1.Text
f_Buscar.lb_tabla.Caption = "Recuperar caja chica"
Call Buscar_Ayuda("Val20000ch", "", "ValNumCpCh", "echopor1", f_Buscar.gr_buscar, "")
Call f_Buscar.busca_desc
TxCp1.SetFocus
f_Buscar.Show
End If
End Sub

Error no coincidentes los tipos

Salu2 mil Gracias

Amplia experiencia en Análisis de Datos (Analytics), Reporting y Automatización de procesos empresariales con Microsoft Access y VBA (20 años de experiencia).

Experiencia en programación web con Php y MySQL

Experiencia en modelos para Analytics con Microsoft Power Bi.

y POR CIERTO, SOY LICENCIADO EN HISTORIA

Aprendiz del Programa de Formación Técnico en programación de software, egresado del SENA como técnico en mantenimiento de equipos de cómputo.

En lo que pueda ayudar, pero no hago deberes de casa.

Buenas colegas