VBScript Zeichenfolge aus String entfernen

Hallo, Community!
Ich habe da ein Problem: Ich schreibe einen kleinen "LAN-Chat" mit VBScript/VBS. D.h. auf einem Laufwerk, auf das mehrere User gleichzeitig zugreifen können (im beispiel S:\) liegt eine Datei namens "Data.chat". Der Chat (eine InputBox) zeigt den inhalt der Inhalt an, und wenn der User etwas in das Eingabefeld eingibt und absendet, wird das als neue Zeile in die Textdatei geschrieben. Ich wollte aber noch eine Funktion einbauen, mit der man sehen kann, wer "online" ist. Ich dachte mir, ich nehme den Username, adde diesen als neue Zeile in eine zweite Datei namens "Onliname.chat", und wenn man /online eingibt, kommt eine MsgBox, die einem anzeigt, Was in der Datei "Onliname.chat" steht. So weit bin ich momentan. Dann fehlt mir jedoch noch eine Funktion, die -wenn man den Chat schließt- den namen des Users entfernt, der den chat verlassen hat. Ich bekomme bei meinen versuchen jedoch nur Fehlermeldungen. Also: Kann mir jemand helfen ein Skript zu erstellen, das den inhalt einer Textdatei ausliest, nach einer bestimmten Zeile sucht, um diese zu löschen?


Danke im vorauß
Leogal0010


PS:
Wer rechtschreibfehler findet, darf sie behalten! :D

Set fso = CreateObject("Scripting.FilesystemObject")  
strNewText = Replace(fso.OpenTextFile("s:\onliname.chat",1).ReadAll(),"UserXYZ" & vbNewline, "",1,1,1)  
fso.OpenTextFile("s:\onliname.chat",2).Write(strNewText)