Вычислить значение суммы

Sub Pro1()
Dim n As Double
n = CDbl(InputBox("введите n"))
S1 = Str(1 / (1 * (1 + 1)))
S2 = Str(1 / (2 * (2 + 1)))
S3 = Str(1 / (3 * (3 + 1)))
S4 = Str(1 / (4 * (4 + 1)))
S5 = Str(1 / (5 * (5 + 1)))
S6 = Str(1 / (6 * (6 + 1)))
S7 = Str(1 / (7 * (7 + 1)))
S8 = Str(1 / (8 * (8 + 1)))
S9 = Str(1 / (9 * (9 + 1)))
S10 = Str(1 / (10 * (10 + 1)))
S11 = Str(1 / (11 * (11 + 1)))
S12 = Str(1 / (12 * (12 + 1)))
S13 = Str(1 / (13 * (13 + 1)))
S14 = Str(1 / (14 * (14 + 1)))
S = Str(S1 + S2 + S3 + S4 + S5 + S6 + S7 + S8 + S9 + S10 + S11 + S12 + S13 + S14)
MsgBox ("сумма= ") & CStr(S)
End Sub

Private Sub Command1_Click()
Dim sum As Single, i As Byte
For i = 1 To 14
sum = sum + (1 / (i * (i + 1)))
Next i
Text1.Text = sum
End Sub