>>457
それなら、
Private Sub Command1_Click()
lbl1.Caption = Format(Val(lbl1.Caption) +　Val(txt1.Text) + Val(txt2.Text))
End Sub
の一行で事足りる。
が、これでは応用がきかないのでお勧めできない。

手直しするなら
Private Sub Command1_Click()
'変数宣言
Dim val1 as Integer
Dim val2 as Integer

Static x As Integer
'入力受け取り
val1 = Val(txt1.Text)
val2 = Val(txt2.Text)
'計算
x = x + val1 + val2
'表示
lbl1.Caption = Format(x)
End Sub
のように、やってることを整理区別して書くように。
あと、変数の型は意識して代入する癖を付けろ。Format、Valなど…