цикл в VBA

Private Sub CommandButton1_Click()
Dim n As Integer, d As Single, i As Integer, f As Single, x As Single
 
n = Val(InputBox("Введите количество членов", " Условие n > 0", ""))
x = Val(InputBox("Введите значение x", " Условие |x| > 1", ""))
If (n < 0) Or (Abs(x) < 1) Then
MsgBox "Вы неверно ввели данные. Повторите правилино"
Else
For i = 1 To n
If i Mod 2 = 1 Then
d = -(i / x ^ i)
Else
d = (i / x ^ i)
End If
f = f + d
Next
MsgBox f
End If
End Sub

Sub P1()
'Зачем f обзывать, когда лучше Сумма.
Dim n As Integer, d As Single, i As Integer, Сумма As Single, x As Single
'Val нельзя использовать в данном случае, т.к. пользователь может
'ввести дробное число через запятую, а Val округляет дробные числа с запятой. 
'А пользователь даже не узнает об этом.
'" Условие n > 0" - этой строки пользователь может не заметить,
'т.к. эта строка будет находиться в заголовке InputBox.
'"" - это вообще не понятно, что такое, студент будет в замещательстве.
n = InputBox("Введите количество членов. Условие n > 0")
x = InputBox("Введите значение x. Условие |x| > 1. Дробные числа вводите через запятую")
'По условию n не должно быть <= 0. То же и с x.
If (n <= 0) Or (Abs(x) <= 1) Then
    'После этого диалогового окна продолжится выполнение программы.
    'Надо или вернуться к месту ввода данных или выйти из программы.
    MsgBox "Вы неверно ввели данные. Повторите правильно"
    Exit Sub
Else
    For i = 1 To n
        If i Mod 2 = 1 Then
            d = -(i / x ^ i)
        Else
            d = (i / x ^ i)
        End If
        Сумма = Сумма + d
    Next i
End If
MsgBox Сумма
End Sub

Private Sub CommandButton1_Click()
 
Dim n As Integer, d As Double, i As Integer, Сумма As Double, x As Single
'ввод
n = InputBox("Введите количество членов. Условие n > 0")
x = InputBox("Введите значение x. Условие |x| > 1. Дробные числа вводите через запятую")
'По условию n не должно быть <= 0. То же и с x.
If (n <= 0) Or (Abs(x) <= 1) Then
       
    MsgBox "Вы неверно ввели данные. Повторите правильно"
    ' выйти из программы.
    Exit Sub
Else
    For i = 1 To n
        If i Mod 2 = 1 Then
            d = -(i / x ^ i)
        Else
            d = (i / x ^ i)
        End If
        Сумма = Сумма + d
    Next i
End If
MsgBox Round(Сумма, 11)
End Sub