Membersihkan Puluhan Textbox dengan Mudah

Berikut cara membuat sub kosongkan puluhan Textbox dengan cara efesien dan efektif. Bayangkan ketika kita membuat sebuah program dengan puluhan Textbox apakah kita akan menggunakan code berikut :

Private Sub Kosongkan()
Text1.text=""
      .
      .
Text20.text=""
End Sub


Atau pilih Code sebagai Berikut :

Private Sub kosongkan()
Dim Ctl As Control
For Each Ctl In Me
    If TypeName(Ctl) = "TextBox" Then
        Ctl.Text = ""
    End If
Next
End Sub

Code diatas bisa dimodifikasi menjadi sub Siapisi atau Tidaksiapisi dengan di modif Ctl.Enable=False/True. Sehingga menjadi lebih pendek penulisannya, efisien dan efektif.
Bagaimana menurut anda ???
Selamat mencoba dan bereksperimen !!!