Habe ich auch schon Probiert.. Das war so:

For x = 1 To TextBox2.Text
...etc.

Hat alles geklappt.. Aber das "x" ging nicht sonst Passte alles