Muutujate edasiandmine VB-s

[felch]

Soovin üht teatud koodijuppi korduvalt kasutada. Jup loeb ini-failist muutujad ja kopeerib nad vastavasse maatriksisse. Jupp eraldi töötab aga funktsioonina välja kutsudes ei oska kuidagi talle salvestuskoha nime edasi anda.
Väljakutse ( siin tahan, et jubin salvestaks töö tulemused maatriksisse "AnaloogKonf"

Kood:

Ret = KopeeriIOKonfMuutujasse(AnaloogKonf, "AnaloogSisend 1")

Ja funktsioon ise. KonfiBlokiNimi peaks saama väärtuse "AnaloogKonf" aga seda ei juhtu.
Kas maatriksi nime üldse annab nii edastada?

Kood:

Private Function KopeeriIOKonfMuutujasse(KonfiBlokiNimi, IONimi)
Dim KeyValue$
Dim Ret
Dim n, m
    KeyValue$ = VBGetPrivateProfileString("IONimi", "IOaadress", FileName$)
    KonfiBlokiNimi(1) = Val(KeyValue$)
    KeyValue$ = VBGetPrivateProfileString("IONimi", "IOTüüp", FileName$)
    KonfiBlokiNimi(2) = Val(KeyValue$)
    KeyValue$ = VBGetPrivateProfileString("IONimi", "DispX", FileName$)
    KonfiBlokiNimi(3) = Val(KeyValue$)
    KeyValue$ = VBGetPrivateProfileString("IONimi", "DispY", FileName$)
    KonfiBlokiNimi(4) = Val(KeyValue$)
    KeyValue$ = VBGetPrivateProfileString("IONimi", "Atrib", FileName$)
    KonfiBlokiNimi(5) = Val(KeyValue$)
    KeyValue$ = VBGetPrivateProfileString("IONimi", "Nimi", FileName$)
    For Ret = 1 To Len(KeyValue$)
        KonfiBlokiNimi(6 + (Ret - 1)) = Mid(KeyValue$, Ret, 1)
    Next Ret
    n = 12 - Len(KeyValue$)
    If n > 0 Then
        KonfiBlokiNimi(8) = 13
        n = n - 1
        For m = 1 To n
            KonfiBlokiNimi(6 + (Ret - 1) + m) = 0
        Next m
    End If
    KeyValue$ = VBGetPrivateProfileString("IONimi", "KoefA", FileName$)
    Ret = ujuta(Val(KeyValue$))
    KonfiBlokiNimi(18) = mantiss
    KonfiBlokiNimi(19) = bait0
    KonfiBlokiNimi(20) = bait1
    KonfiBlokiNimi(21) = bait2
    KeyValue$ = VBGetPrivateProfileString("IONimi", "KoefB", FileName$)
    Ret = ujuta(Val(KeyValue$))
    KonfiBlokiNimi(22) = mantiss
    KonfiBlokiNimi(23) = bait0
    KonfiBlokiNimi(24) = bait1
    KonfiBlokiNimi(25) = bait2
    KeyValue$ = VBGetPrivateProfileString("IONimi", "ÜhikuKood", FileName$)
    KonfiBlokiNimi(26) = Val(KeyValue$)
End Function