Io l'avrei fatta un po diversa:

codice:
Public Function ControllaCampi() as boolean
If Insert.txtNome.Text = "" Then 
   MsgBox ("Attenzione! Nome è un campo obbligatorio.") 
   Insert.txtNome.SetFocus 
   ControllaCampi=False
   Exit Sub 
End If 
...
ControllaCampi=true 
end sub 


e sul tasto INVIA 

.... 

if not ControllaCampi() then 
   Exit Sub 
End If