Private Sub SetColumnsToFile(ByRef saArr() As String, ByVal sPath As String, Optional ByVal sSepar As String = ";")
Dim i As Integer, j As Integer, s As String, FF As Integer
FF = FreeFile
Open sPath For Output As #FF
For i = 0 To UBound(saArr)
s = vbNullString
For j = 0 To UBound(saArr, 2)
s = s & saArr(i, j) & sSepar
Next j
Print #FF, Left$(s, Len(s) - Len(sSepar))
Next i
Close #FF
End Sub