Dim arr(100) As Integer 'Das Array mit Integerwerten
 
        Dim lines() As String = IO.File.ReadAllLines(<CSV-Codedatei>)
        'entsprechend dem Vorschlag von Keco - Kurzform 
        Dim codes As New Dictionary(Of Integer, String)
        For i As Integer = 0 To lines.Length - 1
            Dim parts() As String = Split(lines(i), ";"c)
            codes.Add(CInt(parts(0)), parts(1))
        Next i
 
        'Tabellenspalte mit StringCodes füllen
        Dim dt As New DataTable
        dt.Columns.Add("code", GetType(String))
 
        For i As Integer = 0 To arr.Length - 1
            'hier ggf noch Prüfung per ContainsKey-Methode
            'des Dictionary einbauen 
            dt.Rows.Add(codes(arr(i)))
        Next i
        DataGridView1.DataSource = dt