The code below will clear all the text in the text boxes with just 3 lines of code.

Start a new project and add 5 text boxes and one(1) command button. Cut and paste the code below in the form, run the program. Enter text in the text boxes and then click the command button. This code can save you a lot of key strokes.

======================================================================
Option Explicit

Public Sub ClearFields()
Dim Control
For Each Control In Form1.Controls
If TypeOf Control Is TextBox Then Control.Text = ""
Next Control
End Sub

Private Sub Command1_Click()
ClearFields
End Sub