Cristian Melendez - Posición en: Visual Basic

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