' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Function fjern() Dim fil1, fil2, linie As String fil1 = InputBox("Input file: ") fil2 = InputBox("Ouput file: ") Open fil1 For Input As #1 Open fil2 For Output As #2 Do While Not EOF(1) Line Input #1, linie If InStr(linie, """""DK""""") > 0 Or InStr(linie, """""DE""""") > 0 Or InStr(linie, """""US""""") > 0 Then Print #2, linie End If Loop Close #1 Close #2 End Function