На VBA вычислить сумму квадратов

Sub Вычислить_сумму_квадратов_2_mod_5()
    '
    'by the Fever Brain 15.06.2016
    '
    Dim s$, m, n, st$, sq#, sum#, stn&
    Do
        s = _
        "Введите нижнее четырёхзначное число" & vbLf & _
        "ниже отображен пример такого ввода"
        m = InputBox(s, "Ожидание ввода", "1000")
        If m = "" Then Exit Sub
        If IsNumeric(n) Then If m > 999 And m < 10000 Then Exit Do
    Loop
    Do
        s = _
        "Введите число сложений N" & vbLf & _
        "от 1 до 100"
        n = InputBox(s, "Ожидание ввода", "10")
        If n = "" Then Exit Sub
        If IsNumeric(n) Then If n > 0 And n < 101 Then Exit Do
    Loop
    For m = m To m + 100 * 5
        If m Mod 5 = 2 Then Exit For
    Next
    st = "Статистика сложений:"
    For m = m To m + 100 * 5
        If m Mod 5 = 2 Then
            sq = m * m 'ЗАМЕНЕНО ! >>>>>>>>>>>>>>>> sq = Sqr(m)
            sum = sum + sq: n = n - 1
            '---Эта часть кода нужна для наглядности, можно закоментировать
            stn = stn + 1
            st = st & vbLf & stn & vbTab & "Num = " & m & vbTab & "Sqr = " & sq & vbTab & "Sum = " & sum
            '----------------------------------------------------------------------------------
            If n = 0 Then Exit For
        End If
    Next
    '---Эта часть кода служет дополнением, можно закоментировать
    If MsgBox(st & vbLf & "Скопирывать результат для чегонибудь там... ?", 68, "Ожидание ответа") = vbNo Then Exit Sub
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText st: .PutInClipboard
    End With
    '----------------------------------------------------------------------------------
End Sub