这For / Next 回圏错在那里

我是新手，我想在网页动态加入多个TEXTBOX，但在以下程式就只可加一个，错在那里呢？THX﹗﹗     

  Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        
        Dim oTextBox As New TextBox
        Dim i As Integer
        
            For i = 1 To 3
            oTextBox.ID = "myTextBox" & i
            oTextBox.Text = "请输入你孩子的姓名" & i
            Me.Form.Controls.Add(oTextBox)
            Next
            
  End Sub

回圈内的第一行加上oTextBox = New TextBox
这样才知道是新增一个新的元件