VB2008のコードを教えてください。

特定のフォルダから、特定の文字で始まるテキストファイルのリストと、それらのそれぞれのプロパティを、2次元の動的配列に格納するサブルーチンです。

Private Sub GaineFilesByStartingCharactorsOfFile(ByRef strPathToSearch As String, ByRef strStartCharactorsOfSearch As String, ByRef strGainedFiles() As String, ByRef intNumbersOfGainedFiles As Integer)

で始めます（正しいですか？）。

strPathToSearchで指定されたフォルダの中から、strStartCharactorsToSearchで指定された文字列で始まるファイル名（すべて「.txt」で終わります）のテキストファイルのファイル名のリスト（それぞれに「.txt」を含める）をstrGainedFiles()の列0に格納し、各ファイルの更新年を、ファイル名に対応する各行の列1に、同じく更新月を列2に、更新日を列3に、更新時を列4に、更新分を列5に、更新秒を列5に、それぞれstringにしたものを格納し、得られたファイルのファイル数をintNumberOfFileに格納する。

という動作をするコードを教えてください。どうぞよろしくお願いいたします。