haz esto, crea una función y listo!
Cita: Function Validar() As Boolean
Validar = True
If Trim(Textbox1.Text) = "" Then
MsgBox("Debe Ingresar El Codigo De La Persona ,por favor verifique.", 16, "Mensaje del Sistema")
LBL_percod.Focus()
Validar = False
Exit Function
End If
End Function