VB(비주얼베이직) 두 수를 입력 받아 작은 수에서 큰 수까지의 합계를 구하기

두 수를 입력 받아 작은 수에서 큰 수까지의 합계를 구하시오!!!

소스코드

Private Sub Command1_Click()

Dim a As Integer

Dim b As Integer

Dim sum As Integer

a = CInt(Text1.Text)

b = CInt(Text2.Text)

sum = a

For i = a + 1 To b Step 1

sum = sum + i

Next i

Label4.Caption = sum

End Sub