Ошибка "несовпадение типа" при вызове процедуры - VBA

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

День добрый... Подскажите, где я "туплю": При вызове ReloadFIO говорит "несовпадение типов 13":
Private Sub MultiPage1_Change()
If UserForm1.MultiPage1.Value = 2 Then Call ReloadFIO(UserForm1.ListBox1, UserForm1.ListBox2)
End Sub
сама процедура:
Private Sub ReloadFIO(LB1 As ListBox, LB2 As ListBox)
Dim FIOArr() As String
Dim i As Integer, q As Integer, j As Integer
Dim F As String
LB1.Clear
LB2.Clear
q = 0
For i = 3 To (CInt(ThisWorkbook.Worksheets("ФИО").Cells(1, 2).Value) - 1)
    q = q + 1
    ReDim Preserve FIOArr(2, q)
    F = CStr(ThisWorkbook.Worksheets("ФИО").Cells(i, 1).Value) & " " & CStr(ThisWorkbook.Worksheets("ФИО").Cells(i, 2).Value)
    If Len(CStr(ThisWorkbook.Worksheets("ФИО").Cells(i, 3).Value)) > 0 Then F = F & " " & CStr(ThisWorkbook.Worksheets("ФИО").Cells(i, 3).Value)
    FIOArr(1, q) = CStr(i)
    FIOArr(2, q) = F
Next
 
For i = (UBound(FIOArr, 2) - 1) To 1 Step -1
   For q = 1 To i Step 1
      If (CStr(FIOArr(2, q + 1)) < CStr(FIOArr(2, q))) Then
          For j = 1 To 2 Step 1
                    F = FIOArr(j, q)
                    FIOArr(j, q) = FIOArr(j, q + 1)
                    FIOArr(j, q + 1) = F
          Next j
      End If
   Next q
Next i
 
For i = 1 To (UBound(FIOArr, 2))
    LB1.AddItem (FIOArr(2, i))
    LB2.AddItem (FIOArr(1, i))
Next
End Sub


textual

Код к задаче: «Ошибка "несовпадение типа" при вызове процедуры - VBA»

Private Sub ReloadFIO(LB1 As MSForms.ListBox, LB2 As MSForms.ListBox)
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.909 из 5

Источник