Check om string er = navn på control

Hej

Jeg har en skabalon i csv-format, jeg indlæser i et flerdimensionelt array, derefter ønsker jeg at checke om en af forkomsterne i kolonne 2 er navnet på en kontrol i formen. Herefter skal skabalonen gemmes som en anden csv-fil, hvor control-navnene er erstattet af værdien fra før omtalte control. csv-filen kan bestå af mange tusind linier.

Eks.
Skabalon

Linie 1; 25
Linie 2; txtText1.text
Linie 3; 254
Linie 4; Linietekst

Outputfilen skal se sådan ud:

Linie 1; 25
Linie 2; Tekst fra kontrol
Linie 3: 254
Linie 4: Linietekst




Jeg har koden:

Sub Hent(strFilnavn2 As String)
 
Dim strContainer2(6000, 2) As String
Dim strSave As String
Dim AntalNavne As Integer
Dim filnavn As String
Dim strContainer3() As String
Dim Navn(6000) As String

'Nulstiller tæller
    AntalNavne = 0
   
'Hent et frit filnummer
    Let FilNummer = FreeFile
   
'Sæt bibliotek med fil der skal læses
    Let filnavn = App.Path & strFilnavn2

'Åben [sti til fil] som binær
    Open filnavn For Binary As #FilNummer
   
'Læs til slutningen af filen
'Tæl en op, hver gang løkken køres
'Læs første line i filen
    Do While EOF(FilNummer) = False
       
        Line Input #FilNummer, Navn(AntalNavne)
        strContainer3() = Split(Navn(AntalNavne), ";")
        strContainer2(AntalNavne, 0) = strContainer3(0)
        strContainer2(AntalNavne, 1) = strContainer3(1)
       
        AntalNavne = AntalNavne + 1
    Loop
   
'Luk filen for læsning
    Close #FilNummer
   
    cmdFiler.ShowSave
    Let FilNummer = FreeFile
    Open cmdFiler.FileName For Output As #FilNummer
   
    For i = 0 To AntalNavne
   
        Print #FilNummer, strContainer2(i, 0) & ";" & strContainer2(i, 1)
   
    Next
   
    Close #FilNummer
   
End Sub