I'm trying to make several TextBoxes visible and invisible, depending on the number in another textbox. In Fact I have 14(TextBox1, TextBox2, ...), this is my code so far:

```
Dim s As Integer = 0

While s > 14
   s += 1
   Dim txtBox As String = "TextBox" & CStr(s)
   CObj(txtBox).Visible = False
End While

If txtBoxHowmany.Text = "" Then

   Else
      Dim s As Integer = 0

      While s > txtBoxHowmany.Text
            s += 1
            Dim txtBox As String = "TextBox" & CStr(s)
            CObj(txtBox).Visible = True
      End While
End If

```