Function Get_INF(ByRef SOURCE As String, GETROW As Integer, GETCOLUMN As _
  Integer) As String
    On Error GoTo Err:
    CSV_UNIQUE_ROW = Split(SOURCE, vbCrLf)
    CSV_UNIQUE_COL = Split(CSV_UNIQUE_ROW(GETROW - 1), ",")
    Get_INF = CSV_UNIQUE_COL(GETCOLUMN - 1)
    rows = Split(SOURCE, vbCrLf)
    rows = UBound(rows)
    Exit Function
Err:
 
 
    If Err.Number = 9 Then
        rows = Split(SOURCE, vbCrLf)
        'MsgBox "Please select ROW between 1 and " & UBound(Rows) & vbCrLf & "" & _
          "and COLUMN between 1 and " & UBound(Split(Rows(0), ",")) + 1 & _
          vbCrLf, vbCritical, "Error"
    Else
        MsgBox "Error: " & Err.Number & vbCrLf & Err.Description, vbCritical, _
          "Error"
    End If
End Function
 
 
 
Function Get_ROW(ByRef SOURCE As String) As String
    On Error GoTo Err:
    rows = Split(SOURCE, vbCrLf)
    rows = UBound(rows)
    Exit Function
Err:
 
End Function

Dim sInhalt As String
sInhalt = txt_ReadAll(App.Path & "\language.csv") 'hier lese ich die csv ein
 
Dim i As Integer
For i = 7 To 9
'Die Sieben heißt dass hier meine Sprachtabelle anfängt.. davor steht ein Titel 
' und etwas Text.. TO 9 sollte eigentl. TO UBound(rows) heißen.. klappt jedoch 
' nicht wenn ich es versuche.. muss array definieren und wenn ich eins 
' definiere muss ich angeben welche position im array.. Hab schon lange nichts 
' mehr in  VB programmiert :(
 
sInhalt = Get_INF(sInhalt, i, 1) 'Zeile einfach auslesen
Text1.Text = Text1.Text & vbCrLf & sInhalt 'Zeile in TextBox Zeilenweise 
' ausgeben
sInhalt = txt_ReadAll(App.Path & "\language.csv") 'Textdatei neu einlesen
Next