C# と VB.NET の質問掲示板

↓ こんなとこでしょか。VBおんちなのでこれがフツーの書き方か自信ないけども。

Imports System.Collections.Generic

Module Module1

Sub Main()
  Dim strlist As New List(Of String())
  Dim strarray As String()

  ReDim strarray(3)
  strarray(0) = "aaa1"
  strarray(1) = "aaa2"
  strarray(2) = "aaa3"
  strlist.Add(strarray)

  ReDim strarray(3)
  strarray(0) = "bbb1"
  strarray(1) = "bbb2"
  strarray(2) = "bbb3"
  strlist.Add(strarray)

  For i As Integer = 0 To strlist.Count - 1
    Dim tmp() As String = strlist(i)
    Console.WriteLine(tmp(0))
    Console.WriteLine(tmp(1))
    Console.WriteLine(tmp(2))
  Next

End Sub

End Module

こんなんでました。
# by ReDimは嫌いな人

    Public Shared Sub Main()

        Dim strlist As New List(Of String())

        With Nothing
            Dim strarray(3) As String
            strarray(0) = "aaa1"
            strarray(1) = "aaa2"
            strarray(2) = "aaa3"
            strlist.Add(strarray)
        End With

        With Nothing
            Dim strarray(3) As String
            strarray(0) = "bbb1"
            strarray(1) = "bbb2"
            strarray(2) = "bbb3"
            strlist.Add(strarray)
        End With

        For i As Integer = 0 To strlist.Count - 1
            Dim tmp() As String = strlist(i)
            Console.WriteLine(tmp(0))
            Console.WriteLine(tmp(1))
            Console.WriteLine(tmp(2))
        Next

    End Sub