Создание многомерного массива с ячейками и номерами

        Dim InputPath = "C:\Input.txt" 'Файл с исходными данными
        Dim OutputPath = "C:\Output.txt" 'Файл с обработанными данными
        Dim OutputTXT As String = String.Empty
 
        Dim OutputArr(13823) As String
 
        Dim Input As String = My.Computer.FileSystem.ReadAllText(InputPath)
 
        For Each Line As String In Input.Split(vbCrLf)
            OutputArr(Line.Split(" ").First - 1) += " " & Line.Split(" ").Last
        Next
 
        For Ind = 0 To 13823
            OutputTXT += Ind + 1 & OutputArr(Ind) & vbCrLf
        Next
 
        My.Computer.FileSystem.WriteAllText(OutputPath, OutputTXT, False)

 Dim InputPath = "C:\Input.txt" 'Файл с исходными данными
        Dim OutputPath = "C:\Output.txt" 'Файл с обработанными данными
        Dim OutputTXT As String = String.Empty
 
        Dim OutputArr(13823) As String
 
        Dim Input As String = My.Computer.FileSystem.ReadAllText(InputPath)
 
        For Each Line As String In Input.Split(New String() {vbCrLf}, StringSplitOptions.RemoveEmptyEntries)
            Dim Data() = Line.Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries)
            MsgBox(Line)
            OutputArr(Data(0) - 1) += " " & Data(1)
        Next
 
        For Ind = 0 To 13823
            OutputTXT += Ind + 1 & OutputArr(Ind) & vbCrLf
        Next
 
        My.Computer.FileSystem.WriteAllText(OutputPath, OutputTXT, False)

Imports System.Collections.Generic
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim InputPath = "C:\Input.txt" 'Файл с исходными данными
        Dim OutputPath = "C:\Output.txt" 'Файл с обработанными данными
 
        Dim inputTable() As String = IO.File.ReadAllLines(InputPath)
        Dim outputTable As New HashSet(Of String)
        Dim tempTable As New Dictionary(Of String, String)
 
        For Each el In inputTable
            el = RemoveSpases(el)
            Dim line() = el.Split(" ")
            tempTable.Add(line(1), line(0))
        Next
 
        For Each el In tempTable
            outputTable.Add(el.Value & " " & String.Join(" ", GetRepeatElements(el.Value, tempTable)))
        Next
        IO.File.WriteAllLines(OutputPath, outputTable)
    End Sub
 
    Private Function GetRepeatElements(ByVal val As String, ByVal tbl As Dictionary(Of String, String)) As List(Of String)
        Return (From itm In tbl Where itm.Value = val Select itm.Key).ToList
    End Function
 
    'Эту функцию можно было бы не писать, если бы исходный файл не содержал лишних пробелов
    Private Function RemoveSpases(ByVal str As String) As String
        Dim words As List(Of String) = str.Split(" ").Where(Function(sp) sp <> Nothing).ToList
        Return String.Join(" ", words)
    End Function
End Class