Как заполнить динамический массив?

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim StrMas() As String = Nothing
 
        For i As Integer = 0 To 99 Step 1
            StrMas(i) = CStr(i)
        Next i
    End Sub

Dim StrMas() As String = New String(99){}
или 
Dim StrMas(99) As String

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim StrMas() As String = Nothing
 
        For i As Integer = 0 To 99 Step 1
            ReDim Preserve StrMas(i)
            StrMas(i) = CStr(i)
        Next i
    End Sub

Dim strList As New List(Of String)
For i As Integer = 0 To 99
strList.Add(CStr(i))            
Next i
Dim strMas() As String = strList.ToArray()

Private Function GetChannelNames() As String()
Dim Info As New ChannelInfoType 'В эту переменную возвращается из функции полная коллекция информации о канале
Dim ChCounter As Integer = 0 'Номер канала, о котором надо получить информацию и счетчик
Dim strChannelData As String = String.Empty 'Сюда сформируется список имен каналов, каждый с новой строки
Dim strDataArr() As String
 
While SomeFunction(ChCounter, Info) = True 'Пока каналы существуют, функция будет возвращать положительный ответ
   If ChCounter = 0 Then 'Если это будет первая строка в списке, то нам не за чем перескакивать на новую строку
      strChannelData = "Channel #" & CSTR(ChCounter) & ": " & Info.Name 'Формируем первую строку списка с именем канала
   Else
      strChannelData &= vbNewLine & "Channel #" & CSTR(ChCounter) & ": " & Info.Name 'Перескакиваем на новую строку и добавляем новые данные с именем канала
   End If
   ChCounter += 1 'Увеличиваем счетчик и номер канала для последующего сканирования
End While
strDataArr = Split(strChannelData, vbNewLine) 'По завершению, режем весь текст по строкам и отправляем каждую строку в массив
Return strDataArr
End Function

Private Function GetChannelNames() As String()
Dim Info As New ChannelInfoType 'В эту переменную возвращается из функции полная коллекция информации о канале
Dim ChCounter As Integer = 0 'Номер канала, о котором надо получить информацию и счетчик
Dim ChInfo_List As New List(Of ChannelInfoType) 'Сюда сформируется список имен каналов
 
While SomeFunction(ChCounter, Info) = True 'Пока каналы существуют, функция будет возвращать положительный ответ
   ChInfo_List.Add(Info)
   'MsgBox(ChInfo_List.Item(ChCounter).Name)
   ChCounter += 1 'Увеличиваем счетчик и номер канала для последующего сканирования
End While
 
'MsgBox(ChInfo_List.Item(0).Name)
'MsgBox(ChInfo_List.Item(1).Name)
'MsgBox(ChInfo_List.Item(2).Name)
'MsgBox(ChInfo_List.Item(3).Name)
'MsgBox(ChInfo_List.Item(4).Name)
 
Dim strDataArr(ChCounter - 1) As String
 
For i As Integer = 0 To ChCounter Step 1
   strDataArr(i) = ChInfo_List.Item(i).Name
Next i
 
Return strDataArr
End Function

While SomeFunction(ChCounter, Info) = True 'Пока каналы существуют, функция будет возвращать положительный ответ
   ChInfo_List.Add(Info)
   Info = New ChannelInfoType
   ChCounter += 1 'Увеличиваем счетчик и номер канала для последующего сканирования
End While

        Public Function Clone() As Object
            Return Me.MemberwiseClone()
        End Function

Sub Main
 
Dim list As New List(Of TheTest)
Dim item As New TheTest
 
For I = 0 To 5
    item.Name = "Name #" & i
    Console.WriteLine(item.Name)
    list.Add(item)
Next
 
Console.WriteLine("----------------")
For I = 0 To 5
    Console.WriteLine(list(i).Name)
Next
 
End Sub
 
 
Class TheTest
    Public Name As String
End Class