Botón doble click

en la 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, el botón ahí esta, pero si lo ejecuto 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, ya probé con el do while, o on error goto.. Pero no me funciona

este es código que estoy usando,en que estoy mal

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