Dim x() As Variant
ReDim x(LBound(y_func("ololol"), 1) To UBound(y_func("ololol"), 1), _            'изначально этой строки не было, написал в попытке'
 LBound(y_func("ololol"), 2) To UBound(y_func("ololol"), 2))                          'исправить, но оно всё равно не работает'
x = y_func("ololol")           'Пишет type mismatch'
End Sub

Function SplitPrmCln(NamePrmtr As String) As Variant
Dim y As String, x As Variant, i As Integer, j As Integer, cnt As Integer
y = CurrentDb.OpenRecordset("Select VLE from prmtr_main where Prmtr = '" & NamePrmtr & "'")!Vle        'y=1_4_3,2_4_6,3_5_-3,4_5_0'
x = Split(y, ",")
ReDim x(LBound(x) To UBound(x), 1 To 3)
For i = LBound(x, 1) To UBound(x, 1)
    For j = 0 To 2
        x(i, j + 1) = Split(Split(y, ",")(i), "_")(j)
    Next
Next
SplitPrmCln = x
End Function

Помогите, пожалуйста! Как передать значение этой функции?
____
vk.com/taenfox

http://www.sql.ru/forum/1300765/massiv-ne-mogu-peredat-iz-funkcii-peremennoy