Чтение строки до пробела - VBA

Формулировка задачи:

До цикла выражения выполняются нормально,внутри цикла ошибка Invalid procedure call

Sub Exp()
Set s = Cells(2, 6)
Int1 = 1
Schet = 1
Start = InStr(1, s, " ")
Dim Ext1()
Dim Ext2()
ReDim Preserve Ext1(Schet)
Ext1(Schet) = Left(s, Start - 1)
f = Ext1(Schet)
For J = 1 To 306 Step 1
        s1 = Cells(J, 2)
        Start = InStr(1, s1, " ")
        Ext1(Schet) = Left(s1, Start - 1)
        If (StrComp(f, Ext1(Schet))) Then
        Cells(2, 8) = Cells(J, 1)
      End If
Next J
End Sub

Решение задачи: «Чтение строки до пробела»

textual
                            Листинг программы 
                        

                            Function GetFIO(aFIO As String) As String
    Dim a: a = Split(WorksheetFunction.Trim(aFIO))
    If UBound(a) < 2 Then Exit Function
    GetFIO = a(0) & " " & Left(a(1), 1) & "." & Left(a(2), 1) & "."
End Function
                        