How to clear all textboxes in a form

Sometimes, when we use a lot of textboxes in a form, and want to clean all the textboxes the form, it's not efficient to clean it one by one by using Text1.Text = "", Text2.Text = "", etc.
There is a short way to do it:

Dim a As Control
For Each a In Form1
   If TypeOf a Is TextBox Then
       a.Text = ""
   End If
Next