在过程中怎样引用TextBox?

我在窗体中有很多个TextBox，单击TextBox后的操作都基本一样。想写一个Sub（arg1 As TextBox）的过程来统一操作，但运行的时候提示“类型不匹配”，是怎么原因，请问应该怎么写？？？

Private Sub Text1_Click()
  TextClick(Text1)
End Sub

Public Sub TextClick(Text_ID As TextBox) '这里提示类型不匹配
  中间过程...
  Text_ID.Text = "返回值"
End Sub

最好用数组
或TextClick Text1