Grazie..
va bene così??

Public Sub ControllaCampi(ByRef res)

If Insert.txtNome.Text = "" Then
MsgBox ("Attenzione! Nome è un campo obbligatorio.")
Insert.txtNome.SetFocus
Exit Sub
End If

res= true
end sub


e sul tasto INVIA

....

Call ControllaCampi(res)
If res = False Then
Exit Sub
End If