Access VBAについて教えて下さい。

テキストボックス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

一応、書いてはみましたが…。正しいプログラムを教えてください。