Public Sub Ersetzen(ByVal inputfilepath As String, ByVal inputfile As _
     String, ByVal outputfilepath As String, ByVal outputfile As String, ByVal _
     searchcriteria As String, ByVal replacement As String)
        Dim ifile As IO.StreamReader
        Dim ofile As IO.StreamWriter
        ifile = New IO.StreamReader(inputfilepath & inputfile)
        ofile = New IO.StreamWriter(outputfilepath & outputfile)
 
        Dim zeilen As String
        Dim matches As Integer
        Dim r As System.Text.RegularExpressions.Regex
 
        Try
            zeilen = ifile.ReadToEnd
            zeilen.Replace(searchcriteria, replacement)
            ofile.WriteLine(zeilen)
 
            MsgBox("gespeichert")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
 
        ifile.Close()
        ofile.Close()
    End Sub

Ersetzen(TextBox1.Text, "datei.ps", TextBox2.Text, "datei_conv.ps", "-1191 0" & _
  "translate", "-1191 0 translate 6.2 cm -0.1 cm translate")