Dim Datei As String = "d:\beispiel.m3u"
        Dim TextToReplace = "192.168.178.57"
        Dim TextNeu = "192.168.1.2"
 
        Dim Textinhalt As String = Nothing
 
        Dim sr As New System.IO.StreamReader(Datei)
 
        Textinhalt = sr.ReadToEnd
        sr.Close()
 
        Textinhalt = Textinhalt.Replace(TextToReplace, TextNeu)
 
        Dim sw As New System.IO.StreamWriter(Datei)
        sw.Write(Textinhalt)
        sw.Close()

EALA FREYA FRESENA