Dim Von As Integer = 0
        Dim Bis As Integer = 518
        Dim Gelesen(Bis - Von) As String
        Dim Str as String
 
        Dim Pfad As String = "C:\Dokumente und" & _
          "Einstellungen\gangsta\Desktop\handling.cfg"
        Dim Reader As New StreamReader(Pfad)
        Dim Durchläufe As Integer = Bis - Von
 
 
        If Von > 0 Then
            For i As Integer = 0 To Von
                str=Reader.ReadLine()
Select Case str.StartsWith()
Case ";"
Goto Weiter
Case "%"
Goto Weiter
Case "!"
Goto Weiter
Case "^"
Goto Weiter
Case "$"
Goto Weiter
Case Else
' Jetzt kannst mit Str machen was du willst.
' Ist jetzt nichts mehr mit ; ! % ^ $
End Select
Weiter:
            Next
        End If
 
        For i As Integer = 0 To Durchläufe
            Gelesen(i) = Reader.ReadLine()
        Next