Visual Basic - Lost focus

Hola amigos tengo un problemita con una función que checa si son numeros, bueno la funcion esta bien lo que fallas es el lost focus, por ejemplo tengo mi forma y mando llamar la función de esta manera:

Private Sub txt_cant_items_LostFocus()
checa_num txt_cant_items, Inventariocvta.Name, txt_cant_items.Name
End Sub

Le mando 3 parametros, el campo que esta checando, el nombre de la forma y el nombre del campo.

Aqui recojo los valores y checa bien todo, pero no se como devolver el lost focus Yo lo hice así pero me marca un error.

Public Sub checa_num(campo As TextBox, nombre_forma As String, nombre_caja As String)
If IsNumeric(campo) = False Then
MsgBox "Lo siento. Debe Ingresar SOLAMENTE Números.", vbInformation, "Cuidado!"
nombre_forma.nombre_caja.SetFocus ' <--- Aqui marca el error
End If
End Sub

Espero y me puedan ayudar, la función esta en un modulo.

Gracias

Amigos perdonen si les quite espacio en este foro pero ya lo resolvi y era muy fácil, solo que cuando ya llevas horas progrmando te revuelves.

Private Sub txt_cant_items_LostFocus()
checa_num txt_cant_items
End Sub

Public Sub checa_num(campo As TextBox)
If IsNumeric(campo) = False Then
MsgBox "Lo siento. Debe Ingresar SOLAMENTE Números.", vbInformation, "Cuidado!"
campo.SetFocus
End If
End Sub

Saludos!!

Es tan STUPIDIO que ni me molesto en explicarlo, APRENDE A PROGRAMAR!!!!!!!!!!!!!!!!!!!!!!!!

Private Sub txt_cant_items_LostFocus()
checa_num txt_cant_items
End Sub

Public Sub checa_num(campo As TextBox)
If IsNumeric(campo) = False Then
MsgBox "Lo siento. Debe Ingresar SOLAMENTE Números.", vbInformation, "Cuidado!"
campo.SetFocus
End If
End Sub