コレクションに格納せずにというのであれば
Private 問題() As String
Private 選択肢１() As String

というふうに各項目ごとに配列にし、ループ内で
ReDim Preserve 問題(問題数)
ReDim Preserve 選択肢１(問題数)

と配列のサイズを変更しつつ読み込むという流れになるかと思います。

Private 問題() As String

Private 選択肢１() As String

　　　　　・

　　　　　・

　　　　　・



 Private Sub 問題読込()

        Dim Reader As New IO.StreamReader("作品の問題点.csv", System.Text.Encoding.GetEncoding("Shift-JIS"))

        Dim Items() As String                'CSVの各項目を表す配列 

        Dim Line As String = Reader.ReadToEnd 'CSVの一行 

        Dim Count As Integer = 0



        Do Until IsNothing(Line)

　　　　　ReDim Preserve 問題(Count)

　　　　　ReDim Preserve 選択肢１(Count)

　　　　　　　　・

　　　　　　　　・

　　　　　　　　・



            Items = Line.Split(",")                   

            問題(Count)= Items(0)                    

            選択肢(Count)= Items(1)                    

　　　　　　　　・

　　　　　　　　・

　　　　　　　　・



            Line = Reader.ReadLine                  '次の行を読み込む。 

            '問題数を+1する 

　　　　　 Count += 1

        Loop

        Reader.Close()

    End Sub