ник: georgelisovsky
Если извесны идентификаторы полей, то линейно
Sub Кнопка_Click()
Поле1.SetFocus
Поле1.Text=""
и т.д.
End Sub
Если - не известны или влом писать линейный алгоритм, то перебираем Control-ы
Sub Кнопка_Click()
Dim Ctrl
For Each Ctrl in Me.Controls
Ctrl.SetFocus
Ctrl.Text=""
Next
End Sub
Написал бы больше, да клава какая-то глючная...