Dim c As Control
For Each c In Controls
If TypeName(c) = "TextBox" Then
c = ""
End If
If TypeName(c) = "OptionButton" Or _
TypeName(c) = "CheckBox" Then
c.Value = False
End If
Next c

Hth,
Merjet