Botón doble click

tengo este código, FORM_A, escribo un numuro de telf si lo encuentra en la lista lo muestra si no solo muestra todo en blanco y el numero que escribí, ese mismo quiere que se agregue a un FORM_B, esto con un botón al doble click ejecuta esta acción y lo hace bien.
el problema es que cuando no estoy usando este botón, igual el botón ahí esta, pero si lo ejecuto me muesta un error porque no esta abierto FORM_A, y pues me aparece el mesage de terminar o abrir código.. Pero no quiero que aparezca ese error, he probado con el

do while,

o

on error goto

pero no me funciona echame la mano te muestro el código a continuación para ver en que estoy mal..

Private Sub BtnPasteNumTel_DblClick(Cancel As Integer)
Me.NumTel.Value = [Forms]![Frm01_BuscarNumTel]![txtsearch]
NombreCliente.SetFocus
End Sub