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