[color=blue]Option[/color] [color=blue]Explicit[/color]
 
[color=blue]Private[/color] [color=blue]Type[/color] CS
    Name [color=blue]As[/color] [color=blue]String[/color]
    Wert [color=blue]As[/color] [color=blue]String[/color]
[color=blue]End[/color] [color=blue]Type[/color]
 
[color=blue]Dim[/color] Daten() [color=blue]As[/color] CS
 
[color=blue]Private[/color] [color=blue]Sub[/color] Command1_Click()
    [color=blue]Dim[/color] i [color=blue]As[/color] [color=blue]Integer[/color]
 
    [color=blue]For[/color] i = 0 [color=blue]To[/color] _
      [color=blue]UBound[/color](Daten)
        [color=blue]If[/color] Daten(i).Name = Text1.Text _
        [color=blue]Then[/color]
            Text2.Text = Daten(i).Wert
            [color=blue]Exit[/color] [color=blue]For[/color]
        [color=blue]End[/color] [color=blue]If[/color]
    [color=blue]Next[/color] i
[color=blue]End[/color] [color=blue]Sub[/color]
 
[color=blue]Private[/color] [color=blue]Sub[/color] Form_Load()
    [color=blue]Dim[/color] sLine [color=blue]As[/color] _
      [color=blue]String[/color]
    [color=blue]Dim[/color] Level [color=blue]As[/color] _
    [color=blue]Integer[/color]
 
    [color=blue]Open[/color] "C:\Windows\Desktop\N.txt" [color=blue]For[/color] _
      [color=blue]Input[/color] [color=blue]As[/color] #1
        [color=blue]While[/color] [color=blue]Not[/color] EOF(1)
            [color=blue]Line[/color] [color=blue]Input[/color] #1, sLine
            Daten(Level).Name = InStr(1, sLine, " ")
            Daten(Level).Wert = InStrRev(sLine, " ")
            Level = Level + 1
        [color=blue]Wend[/color]
    [color=blue]Close[/color] #1
[color=blue]End[/color] [color=blue]Sub[/color]