Вычисление суммы через цикл - VB

Формулировка задачи:

Dim m, r, s, x, a As Integer
        m = TextBox1.Text
        x = TextBox2.Text
        a = TextBox3.Text
 
        r = 1
 
        Dim i As Integer
        s = 0
        For i = 1 To m
 
            s = s + x * (m - r) * a

        Next i
        Label1.Text = s

не пойму в чём ошибка: ответ высчитывается по формуле с добавлением s, т.е. x * (m - r) * a = 20 , а ответ выводит 40. Как правильно написать код, чтобы сумма считывалась правильно?

Решение задачи: «Вычисление суммы через цикл»

textual
                            Листинг программы 
                        

                                    Dim m As Integer, r As Integer, s As Integer, x As Integer, a As Integer
        m = CInt(TextBox1.Text)
        x = CInt(TextBox2.Text)
        a = CInt(TextBox3.Text)
        r = 1
        Dim i As Integer
        s = 0
        For i = 1 To m
            s = s + x * (m - r) * a
        Next i
        Label1.Caption = CStr(s)
                        