VBのバージョンが書いてないので、とりあえずVB2002以降のものを。 
 
'フォーム上のTextBoxの値をすべて足して、MsgBoxで表示します。。 
Dim o As Control 
Dim Value As Integer 
For Each o In Me.Controls 
    If o.GetType Is GetType(TextBox) Then 
       Value += o.Text 
    End If 
Next 
MsgBox(Value) 
 
コレでいいでしょうか?