Carregar Arquivo CSV

[Alex Mauricio]

Boa noite pessoal.

Gostaria de tirar uma dúvida...

Fiz um código para carregar um arquivo csv em um flexgrid...

Porém está dando um erro na parte do código em negrito.

Private Sub carregaGrid()
    Dim strArquivo          As String
    Dim strTexto            As String
    Dim lngPosIni           As Long
    Dim lngPos              As Long
    Dim strCodigo           As String
    Dim strTelefone         As String
    Dim strDataCadastro     As String
    Dim strSituacao         As String
    Dim strDataVigor        As String
    
    Dim codigo              As Long
    codigo = 0
            
    strArquivo = cmmCarregaArquivo.FileName
    Open strArquivo For Input As #1
    Line Input #1, strTexto
    

    Dim lngLinha As Long
    lngLinha = 1
    
    While Not EOF(1)
        lngPos = Empty
        strCodigo = Empty
        strTelefone = Empty
        strDataCadastro = Empty
        strSituacao = Empty
        strDataVigor = Empty
        
        lngPosIni = 1
        
        If Trim(strTexto) <> Empty Then
            If InStr(1, Trim(strTexto), "Arquivo Lista Gerado") <> 0 _
            Or InStr(1, Trim(strTexto), "Bloqueio de Ligacoes Telefonicas") <> 0 _
            Or InStr(1, Trim(strTexto), "Fundacao de Protecao e Defesa do Consumidor") <> 0 _
            Or InStr(1, Trim(strTexto), "a partir de") <> 0 Then
                Line Input #1, strTexto
            'End If
        Else
         '   MsgBox "VAI CARREGAR O ARQUIVO!!!"
                        
                With grdArquivo
                    codigo = codigo + 1
                    
                    strTexto = Trim(strTexto)
                    strCodigo = codigo
                    .Row = lngLinha
                    .Col = 0
                    .Text = strCodigo
                
                    lngPos = InStr(lngPosIni, strTexto, ";")
                    strTelefone = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni)
                    .Col = 1
                    .Text = strTelefone
                    
                    lngPosIni = lngPos + 1
                    lngPos = InStr(lngPos + 1, strTexto, ";")
                    strDataCadastro = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni)
                    .Col = 2
                    .Text = strDataCadastro
                    
                    lngPosIni = lngPos + 1
                    lngPos = InStr(lngPos + 1, strTexto, ";")
                    strSituacao = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni)
                    .Col = 3
                    .Text = strSituacao
                    
                    lngPosIni = lngPos + 1
                    lngPos = InStr(lngPos + 1, strTexto, ";")
[b]                    strDataVigor = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni)[/b]
                    .Col = 4
                    .Text = strDataCadastro
                    
                    .Rows = .Rows + 1
                    lngLinha = lngLinha + 1
                End With
            End If
        End If
        
        Line Input #1, strTexto
    Wend
    Close #1
End Sub

run-time erro '5':

invalid procedure call or argument

O que pode ser?

Obrigado