一次给多个控件数组赋值？

我有多个TEXTBOX控件数组，如TXT1(0)...TXT1(N),TXT2(0)...TXT2(M),...
如何快速把它们全部赋值为""?

--------------------编程问答-------------------- for i= 0 to m
txt1(i).text=""
txt2(i).text=""
...
next i --------------------编程问答-------------------- Dim a
    For Each a In Me
        If TypeOf a Is TextBox Then
            a.Text = ""
        End If
    Next --------------------编程问答-------------------- 楼上的答案，会把不需要赋值的TEXTBOX控件也初始化了，能否可以选择。
如TEXTEMPTY("",TXT1,TXT2)
--------------------编程问答-------------------- 这样做也可以，不过感觉比较牵强。
Public Sub ClearText(Ctr As Object)
    
    On Error Resume Next
    
    Dim v   As Control
    
    For Each v In Ctr
        v.Text = vbNullString
    Next
    
End Sub

ClearText TXT1
ClearText TXT2 --------------------编程问答-------------------- 这里就是过滤条件的问题。
可以采用过滤条件的属性很多，比如name tag 等。。
dim obj as object
on error resume next
for each obj in frm.Controls
    if typeof obj is textbox then
        if obj.tag="needclear" then obj.text=""
    end if
next

补充：VB ,  控件