سلام دوست عزیز بهتر بود این سوال رو در قسمت الگوریتم مطرح میکردی به هر حال...
شما راه حلت خیلی اشتباه بود در اینجا مخرج هر کسر حاصل جمع صورت همون کسر بعلاوه مخرج کسر قبلی هستش.
اینم کده برنامه


Private Sub Command1_Click()

    Dim S As Double

    N = InputBox("Enter a number :")

    S = 0

    x2 = 8

    For i = 0 To N

        x1 = x1 + 5

        x2 = x2 + x1

        S = S + (x1 / x2)

        Text1.Text = Text1.Text & x1 & "/" & x2 & "       = " & S & vbCrLf & vbCrLf

    Next

    Text1.Text = Text1.Text & " All sum  =  " & S

End Sub


فقط فراموش نکنی که حتما خاصیت MultiLine رو در Text1 برابر True قرار بدی در غیر اینصورت خروجی عجیبی به دست میاد.

اگه بازم سواله الگوریتمی داشتید من در خدمتم.
موفق باشید...