Bob, a little less information than required for an accurate reply but maybe
what you are asking for is something like this.
Regards
Hexathioorthooxalate
Private Function getArray() As String()
Dim v As ArrayList = New ArrayList
Dim s As String
Do
s = InputBox("enter something or nothing to exit", "inputbox title")
If s <> "" Then v.Add(s)
Loop While s <> ""
Return CType(v.ToArray(GetType(String)), String())
End Function
And to test it use a bit of code like the following.
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String() = getArray()
For i As Integer = 0 To s.Length - 1
MsgBox(s(i))
Next i
End Sub