Error in Module

[DinoVaught]

Private Sub ClearTextControls()
Dim ctl As Control
    
    For Each ctl In Form1             ' loop all controls on Form1
        If TypeOf ctl Is TextBox Then ' If the control is a TextBox
            ctl.Text = vbNullString   ' set its value to null
        End If
    Next ctl
    
End Sub