Dim F As Integer
Dim Ort As String
Dim Datum As String
Dim Temp As String
Dim zeile As Integer
 
'..........Coomon Dialog
 
      F = FreeFile
 
      Open .FileName For Input As #F
      lvw_ReadData ListView1, .FileName 'Listview einlesen
 
      Do
Line Input #F, Ort
zeile = zeile + 1
If InStr(1, Temp, Ort) > 0 Then
Line Input #F, Ort
Exit Do
End If
Loop Until EOF(F)
 
Close
 
'txtDate.Text = Datum   <<<<<<<
 txtOrt.Text = Ort
 
  End With