Dim F As Integer
Dim sLine As String
 
F = FreeFile
Open "ort.txt" For Input As #F
Do Until Eof(F)
  Line Input #F, sLine
  If Left$(sLine, Len(ORT.Text) + 1) = ORT.Text & ";" Then
    ergORT.Text = Mid$(sLIne, Len(ORT.Text) + 2)
    Exit Do
  End If
Loop
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de