Подбор массива из базы по совпадению

Function Xo(C As Variant, ByRef L As Variant, ByRef Bd As Variant) As Variant
Dim i As Integer, j As Integer, K As Integer, M As Integer, F As Integer
Dim Vari, Base_D, Mass()
Base_D = Bd
Vari = L
i = UBound(L, 1)
j = UBound(Bd, 1)
For K = 1 To i
    If CStr(Vari) = C Then
        For F = 1 To 3
            For M = 1 To j
            Mass(j, 1) = Base_D(j, i)
            Next
        i = i + 1
        Next
    End If
Next
Xo = Mass
End Function

Function Xo(C As Variant, ByRef L As Variant, ByRef Bd As Variant) As Variant
Dim i As Integer, j As Integer, K As Integer, M As Integer, F As Integer, s as integer
Dim Vari, Base_D, Mass()
Base_D = Bd
Vari = L
i = UBound(L, 1)
j = UBound(Bd, 1)
For K = 1 To i
    If CStr(Vari) = C Then
    s=3i
        For F = 1 To 3
            For M = 1 To j
            Mass(j, 1) = Base_D(j,si)
            Next
        s=s+1
        Next
    End If
Next
Xo = Mass
End Function

s=3i

Function Xo(t As Range, Bd As Range)
  Dim c As Range
  Set c = Bd.Rows(1).Find(what:=t.Value, LookIn:=xlValues, lookat:=xlWhole)
  If c Is Nothing Then Exit Function
  Set Xo = Range(c.Offset(1), c.End(xlDown)).Resize(, 3)
End Function