For 문을 이용한 반복계산 만드는데 값이 이상한게 나오네요..

Private Sub Command1_Click()Dim hab, i As Integerhab = 0For i = Val(Text1.Text) To Val(Text2.Text) hab = hab + 1Next iText3.Text = Str(hab)End Sub이렇게 입력하고 Text1에 1 입력하고 Text2에 10 입력해서 1+2+3+4+5+6+7+8+9+10의 작업이 이뤄저서Text3에 55의 숫자가 나오는걸 원했는데 엉뚱한 10이나오네요..소스 오류가 뭔지 알수 있을까요?