Fai così:

codice:
For i = 0 To UBound(CampiDalForm)
    If campo1 = "pippo" Then ...
    If campo2 = "pluto" Then ...
Next