Sub CommandButton4_Click()


' This macro exports the vote results to the log file

    Dim FileName As String  ' the file to write to
    Dim DataRange As Range  ' the range containing the data to export
    Dim Append As Boolean   ' whether to append or overwrite existing data
    Dim SkipEmptyRows As Boolean ' whether to skip empty rows
    Dim PadRight As Boolean ' whether to pad short fields on the right
    Dim PadChar As String   ' character to use when padding short fields
    Dim FieldSpecs As String ' the columns and number of characters for export
    Dim Result As Long  ' the result of the export procedure.
    
    ' Set up the values to do the export
    ' CHANGE THESE VALUES AS DESIRED
    FileName = "D:\ADATA\~Maci\My Files\~Tarsashaz\Forms\LogFile.txt"
    Set DataRange = Range("D4:Q7")
    Append = True
    SkipEmptyRows = True
    PadRight = True
    PadChar = Space(1)
    FieldSpecs = "D,13|E,6|F,6|G,6|H,6|I,6|J,6|K,6|L,6|M,6|N,6|O,6|P,6|Q,5"
    
    ' Do the actual export
    Result = ExportFixedWidth(FileName, DataRange, Append, _
        SkipEmptyRows, PadRight, PadChar, FieldSpecs)
    ' test the result
    If Result >= 0 Then
        MsgBox Format(Result, "#,##0") & " records exported to file: " & FileName
    Else
        MsgBox "An error occurred exporting the data."
    End If


End Sub