...
sw.WriteLine("	pla=plapla=hallo=haloo2	")
End If
        'Einlesen der Datei
        Dim sr As IO.StreamReader = New IO.StreamReader(FILE_NAME)
        '        MsgBox(sr.ReadLine)
 
 
        Do While Not sr.EndOfStream
            Dim xA() As String = Split(sr.ReadLine(), "=")
            If xA.Length = 2 Then
                Dim a0 As String = xA(0).Trim().ToLower()
                Dim a1 As String = xA(1).Trim()
                If Not String.IsNullOrEmpty(a0) AndAlso Not _
                  String.IsNullOrEmpty(a1) Then