Ciao.
Io utilizzerei questo sistema:

codice:
Public Sub CancellaCampi()     ' Cancellazione del contenuto dei campi
   Dim Campo As Control  
   On Error Resume Next
   For Each Campo In Controls
      Campo.Text = Space(0)         ' Proprietà Text
   Next
End Sub
Noterai che è una funzione che puoi richiamare come meglio credi.
E' importante la riga "On error..." perché intercetta e salta eventuali errori generati da controlli che non supportano la proprietà "Text". Puoi anche aggiungere al codice le proprietà di altri controlli, ad esempio:

Campo.Caption = Space(0)
Campo.ListIndex = -1

ecc. ecc.

Fammi sapere.