Public Function csvLesen(ByVal fname As String, ByVal auswahl As Integer)
        Dim werte As String()
        Dim FStream As System.IO.FileStream
        Dim SReader As System.IO.StreamReader
        Try
            FStream = New System.IO.FileStream(fname, _
            IO.FileMode.Open, _
            IO.FileAccess.Read)
            SReader = New System.IO.StreamReader(FStream)
            Dim ende As Integer
            ende = FStream.Length
            Do
                Dim s As String = SReader.ReadLine
                If s = Nothing Then
                    Exit Function
                End If
                werte = s.Split(";")
                'CheckedListBox1.Items.Add(werte(auswahl))
            Loop
            SReader.Close()
            FStream.Close()
        Catch ex As Exception
            If Not SReader Is Nothing Then
                SReader.Close()
            End If
            If Not FStream Is Nothing Then
                FStream.Close()
            End If
            MessageBox.Show("Fehler beim Auslesen der csv!")
        End Try
    End Function