Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim datei As String = "d:\irgendwas\vb.mht"
 
        Dim sr As New System.IO.StreamReader(datei)
 
        Dim inhalt As String = sr.ReadToEnd
 
        sr.Close()
 
        inhalt = inhalt.Replace("juhu", "irgendwas")
 
        Dim sw As New System.IO.StreamWriter("d:\irgendwas\vb.mht")
 
        sw.Write(inhalt)
 
        sw.Close()
 
        Dim p As New Process
 
        p.Start(datei)
 
    End Sub

EALA FREYA FRESENA