Dim x, i, d As Integer

       x = TextBox1.Text

       i = 1

       While x > 0

           x -= i

           i += 1

           d += 1

       End While

       TextBox2.Text = d

это действие на кнопку

надеюсь ты знаешь что у тебя должны быть два текстовых поля с именами TextBox1 и TextBox2 чтоб заработало.

это вся программа