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 чтоб заработало.
это вся программа