How would I go about stripping out the text qualifier from a CSV file?

" is the qualifier.

This is what I have and it works as long as there is no qualifier

Code:
    Dim arrData() As String
    Dim s As Variant
    Dim i As Integer

        Open "Filename" For Input As #1
        
        Do While Not EOF(1)
        rs.AddNew
        Line Input #1, s
        
        arrData = Split(s, ",")
      
        For i = 0 To UBound(arrData)
            'Debug.Print arrData(i)
            rs!TRANS_ID = arrData(0)
            rs!CO = arrData(1)
            rs!FACid = arrData(2)

Thanks for any and all help...