Dim iNumber As Integer = 0
Dim arr() As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ReDim Preserve arr(iNumber)
arr(iNumber) = TextBox1.Text.ToString()
For ix = 0 To arr.Length - 1
MsgBox(arr(ix))
Next
iNumber += 1
End Sub