Set Diap = Range(tofind.Cells( 1 ,  1 ), tofind.Cells(xxx +  1 ,  4 ))
strDate = Format(Now, "yyyy.mm.dd-hh.mm.ss")
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("c:\!WORK!\Akti\Current\") = False Then MkDir "c:\!WORK!\Akti\Current\"
Open "c:\!WORK!\Akti\Current\Akt." & strDate & ".txt" For Output As # 1     ' Open file for output.
i =  0 
For Each cc In Diap
If i =  0  Then
    stroka = cc
Else
    stroka = stroka & Chr( 9 ) & cc
End If
i = i +  1 
If i =  4  Then
    Print # 1 , stroka    ' Print text to file.
    stroka = ""
    i =  0 
End If
Next
Close # 1 

Sub test()

Dim MyArray
With Sheets( 1 )
    MyArray = .Range(.Cells( 1 ,  1 ), .Cells( 65000 ,  20 ))
End With

strDate = Format(Now, "yyyy.mm.dd-hh.mm.ss")
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("c:\!WORK!\Akti\Current\") = False Then MkDir "c:\!WORK!\Akti\Current\"
Open "c:\!WORK!\Akti\Current\Akt." & strDate & ".txt" For Output As # 1     ' Open file for output.
    Print # 1 , MyArray    ' Print text to file.
    stroka = ""
Close # 1 

End Sub