Dim tbo as new textbox  
tbo.text = "irgendwas"
 
Dim tbx(2) As TextBox 'Array
tbx(0) = New TextBox  'Objekt im Array an Index 0 erstellen 
tbx(0).Text = "irgendwas"
 
tbx(0).Name = "tbx_0"  'Dem Objekt irgendeinen Namen geben
tbx(0).Parent = Me  'Zuordnung zur Controls-Auflistung des Formulars
Me.Controls("tbx_0").Text = "irgendwas anderes"
 
DirectCast(Me.Controls("tbx_0"), TextBox).AppendText(" noch was")

Dim vl as integer
if integer.tryparse(Textbox1.text, vl) then
   spielkonto(1) = vl
else
   'Die Textbox enthält keinen Integerwert
end if