'Saves the table to a CSV file.
Public Sub SaveTableToCSV(Dir As String, Filename As String)
'If File.Exists(Dir, Filename, ",", Data, headers)=False Then
Dim headers(NumberOfColumns) As String
For i = 0 To headers.Length - 1
Dim l As Label
l = Header.GetView(i)
headers(i) = l.Text
Next
StringUtils1.SaveCSV2(Dir, Filename, ",", Data, headers)
End Sub