Dim oFSO, oStream, test, test1, lala
            ' Dim sLine As String
            Dim sText As String
            Dim Text As String
            Dim sLine As String
            oFSO = CreateObject("Scripting.FileSystemObject")
            oStream = oFSO.OpenTextFile(FileName)
            sLine = oStream.ReadAll
            ' sText = oStream.readall
            oStream.Close()
            test1 = Replace(sLine, "ooo", "0&²")
            test = Replace(test1, vbCrLf, "")
            Dim stgTempname, stgTempdir As String
            stgTempdir = IO.Path.GetTempPath
            stgTempname = IO.Path.GetTempFileName
            Dim sw As IO.StreamWriter
 
            sw = New IO.StreamWriter(stgTempname, False) ' <- da haste nen 
            ' fehler (false vergessen)
 
            sw.WriteLine(test)
            sw.Close()
            MsgBox(stgTempname)
            AxMediaPlayer1.Open(stgTempname)