Определить сумму программистов

Public Function OpenFile()
 Dim x, c As Long
 x = CreateObject("scripting.filesystemobject").opentextfile(Adres).readall
 With CreateObject("vbscript.regexp")
    .Pattern = "(\d+)\s*программист"
    .Global = True
    .ignorecase = True
    For Each x In .Execute(x)
      c = c + x.submatches(0)
    Next
 End With
 MsgBox "Общее количество программистов = " & c, vbInformation + vbOKOnly, "Поиск" 'Выводим общее количество
End Function

 x = CreateObject("scripting.filesystemobject").opentextfile(Adres).readall
 With CreateObject("vbscript.regexp")
    .Pattern = "(\d+)\s*программист"
    .Global = True
    .ignorecase = True

Public Function OpenFile()
 
    Dim MyArray() As String
    Dim Result As String
    Dim MyTXT As String
    Dim a$, i&, c As Long
        
    Open Adres For Input As #1 'Открываем выбранный файл
        Do Until EOF(1)
        
            Line Input #1, MyTXT ' Задаём в переменную 1-ю строчку текста
            
            MyArray() = Split(LCase(MyTXT), "программист") 'отбрасываем слово программист(а)(ов)(ы) оставляем только число
            For i = 0 To UBound(MyArray) - 1
              
              a = Trim(MyArray(i)) 'запоминаем в переменую число и удаляем со всех сторон пробелы
              If IsNumeric(a) Then
                c = c + a
              Else
                a = Right$(a, Len(a) - InStrRev(a, " "))
                If IsNumeric(a) Then c = c + a
              End If
            Next
        Loop
    Close #1
    
    MsgBox "Общее количество программистов = " & c, vbInformation + vbOKOnly, "Поиск" 'Выводим общее количество
    
End Function