Private Sub Teachin()
        Dim dir As New System.IO.DirectoryInfo( _
          System.IO.Directory.GetCurrentDirectory & "\Teachin\")
        Dim files As System.IO.FileInfo() = dir.GetFiles("*.BTI")
        Dim file As System.IO.FileInfo
        Dim name As String
 
        Dim i As Integer = 1
 
        For Each file In files
            gTeachin(i) = file.Name
            name = Microsoft.VisualBasic.Left(file.Name, 20)
            Me.cbTeachin.Items.Add(name)
            i = i + 1
        Next
 
    End Sub

        Dim Datei1 As String
        Dim DateiNr1 As Short
 
        Datei1 = MMI.TeachinDIRlocal.FullName & "\" & Me.gTeachin( _
          Me.cbTeachin.SelectedIndex + 1)
        DateiNr1 = FreeFile()
 
        FileOpen(DateiNr1, Datei1, OpenMode.Input)
 
        Do While EOF(DateiNr1) = False
            Text = LineInput(DateiNr1)
            If InStr(Text, "mcdName1=") > 0 Then
                textarray = Split(LineInput(DateiNr1), "mcdName1=")
            End If
        Loop
 
 
        Me.pVB1MK1.Text = Me.textarray(0)

mfg
rt