テキストボックスX1~Y1に数字(整数)を入力して、総和を求めたいです。
x1□~y1□ 総和□ ボタン□
Private Sub btnWa_Click()
Dim lSouwa As Long
lSouwa = 0
For lSouwa = txtX1 To txtY1
lSouwa = txtX1 + txtY1
Next
txtSouwa.Value = lSouwa
End sub
一応、書いてはみましたが…。正しいプログラムを教えてください。