Adding data to a CSV file troubleshoot

[concreteinterface]

I have been over this a few times and can't figure it out. I have used this code a few times in the same project and it does work with similar setups. For some reason this sub is not working. Any suggestions?

Sub AddCompany()

Call Definitions.Definitions
Dim My_filenumber As Integer
Dim logSTR As String
Dim COL As String


    My_filenumber = FreeFile
    
    logSTR = InputBox("What is the name of the company?")
    COL = WOP & "\Company List.csv"
    Open COL For Append As #My_filenumber
        Print #My_filenumber, logSTR
    Close #My_filenumber


    MsgBox My_filenumber   '1
    MsgBox WOP             '\\IP Address\file\file\file  WOP is declared as a public function in the Definitions.Definitions Sub
    MsgBox COL             '\\IP Address\file\file\file\Company List.csv
    MsgBox logSTR          'Customer
    
    'Company List.csv is filled with 24 rows in 1 column

 

[concreteinterface]

Wow. Fixed it myself. I actually fixed it a while ago but my CSV file must not have been updating. The fix was putting a comma after the input box string with commas after every existing entry in the CSV file. Here's the code.

Sub AddCompany()

Call Definitions.Definitions
Dim My_filenumber As Integer
Dim logSTR As String
Dim COL As String




    My_filenumber = FreeFile
    
    logSTR = InputBox("What is the name of the company?") & ","
    COL = WOP & "\Company List.csv"
    Open COL For Append As #My_filenumber
        Print #My_filenumber, logSTR
    Close #My_filenumber




    MsgBox My_filenumber   '1
    MsgBox WOP             '\\IP Address\file\file\file  WOP is declared as a public function in the Definitions.Definitions Sub
    MsgBox COL             '\\IP Address\file\file\file\Company List.csv
    MsgBox logSTR          'Customer,
    
    'Company List.csv is filled with 24 rows in 1 column