Ошибка 'Invalid procedure call or argument'

LsV_file.ListItems.Add , , Mid(strData, 5, a - 5)

If a > 5 Then
 LsV_file.ListItems.Add , , Mid(strData, 5, a - 5)
End If

        LsV_file.ListItems.Clear
        Do
            a = InStr(strData, '`')
            If a > 5 Then
                str = Mid$(strData, 5, a - 5)
                LsV_file.ListItems.Add , , str
            End If
            strData = Mid$(strData, a + 1, Len(strData) - a)
        Loop Until strData = '' Or strData = ' '

Dim filetrue As Boolean 'глобальные переменные
Dim filedat As String
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String ' Строка которую получает клиент
    Winsock1.GetData strData
    If bytesTotal = 8192 Then ' если кол-во байт = 8192 (т.е. максимально)
        filedat = filedat & strData 'глобальная переменная filedat принимает значение первого куска, затем первого и второго и т.д.
        filetrue = True 'думаю понятно
        Exit Sub завершение САБА
    End If
    If filetrue = True Then 'получается так, если первый, второй, третий куски это часть одного большого куска который должен был отправится... а четвёрты длиной не 8192, но он завершает большой кусок, то чтобы на клиент получить целый кусок мы объединяем первый кусок, второй, третий (которые уже объеденены в переменной filedat) с последним четвёртым он и становится конечной полученной строкой которая посылается на обработку...
        strData = filedat & strData
        filetrue = False
    End If
...