いやぁ、勉強になりました。（本当です） 
Option Strict On使用では。 
Button1イベントハンドラ内に 
Dim o As Control 
Dim Value As Integer 
Try 
For Each o In Me.Controls 
If o.GetType Is GetType(TextBox) Then 
Value +=Cint(o.Text) 
End If 
Next 
Catch 
MsgBox("数字が入ってないTextがあります。") 
Return 
End Try 
MsgBox(Value) 
End Sub 
<<VB2008無料版>>