Как определить количество страниц в книге, если известна сумма его страниц? - Visual Basic .NET

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

Привет друзья. Не получается решать одну задачу. Как определить количество стр в книге, когда суммы его страницы известно. условия такая: 1+2+3+4+5+6+7+8+9=45 10=1+0=1 11=1+1=2 12=1+2=3 13=1+3=4 14=1+4=5 15=1+5=6 45+21=66 то есть итог 66. Вот у меня код: которые через количество стр находить его сумму мне надо чтобы через суммы его стр нашёл количество страниц.

        Dim summa As Integer = 0
        Dim i As Integer
        Dim k, k2, k3, k4 As Integer
        Dim n As Integer = 15
        For i = 1 To n
            ListBox1.Items.Add(i)
            If i <= 9 Then
                summa = summa + i
            End If
            If i > 9 And i < 99 Then
                k = Mid(i, 1, 1)
                k2 = Mid(i, 2, 1)
                k3 = k + k2
                summa = summa + k3
            End If
            If i > 99 Then
                k = Mid(i, 1, 1)
                k2 = Mid(i, 2, 1)
                k3 = Mid(i, 3, 1)
                k4 = k + k2 + k3
                summa = summa + k4
            End If
            TextBox1.Text = summa
        Next

Решение задачи: «Как определить количество страниц в книге, если известна сумма его страниц?»

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

                                    Dim i, j As Integer, n As Long
        n = 66  ' сумма
        i = 0   ' номер строки
        While n > 0
            i = i + 1
            For j = 1 To i.ToString.Length
                n = n - Mid(i, j, 1)
            Next
        End While
        If n = 0 Then
            MsgBox(i)
        Else
            MsgBox("Строка отсутствует", MsgBoxStyle.Critical)
        End If
                        