请教如何样用函数给不同TEXTBOX赋值

请问怎么样用函数给不同TEXTBOX赋值?
例如 有3个textbox 
textbox1
textbox2
textbox3

请问怎么用函数给这三个TEXTBOX赋值?

例如 SetTextBox( "textbox1","abc") 就把 textbox1.text ="abc"
SetTextBox( "textbox2","abcd")
[解决办法]

Private Sub SetTextBox(TextBox As TextBox, Optional Text As String = "")
   TextBox.Text = Text
End Sub

Private Sub Command1_Click()
   SetTextBox textbox1, "abc"
   SetTextBox textbox2, "abcd"
End Sub

Private Sub Command2_Click()
   '下面这两句效果等同：
   SetTextBox textbox1
   SetTextBox textbox1, vbNullString
End Sub