Private Sub Command5_Click()
 
  Dim F As Integer
  Dim lpe1 As String
  Dim lps2 As String
 
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    .Filter = "Textdateien (*.txt)|*.txt"
    .ShowOpen
    If .FileName <> "" Then
      F = FreeFile
      Open .FileName For Input As #F
            Do Until EOF(F)
 
        Line Input #F, lpe1
        Line Input #F, lps2
 
      Loop
      Close #F
    End If
  End With
 
lps.Text = lps1
lpe.Text = lps2
End Sub