Dim tempstr, temp
vacature = Trim(Range("F3").Text)
Open "C:Mailingmaker.doc" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
tempstr = tempstr & temp
Loop
Close #1
tempstr = Replace(tempstr, "<function", vacature)
Open "C:\Mailingmaker.doc" For Output As #1
Print #1, tempstr
Close #1