If InStr(Temp, "1") > 0 Then Temp = "" End If If InStr(Temp, "1") > 0 Then Temp = "" End If Print #2, tmp ' zapisi vrijednost temp u file 2 tmp = Temp '--------------------------------------------------------------------------------- Wend ' Kraj petlje