Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button3.Click
        Dim ofd As New OpenFileDialog
 
        ofd.Multiselect = True
 
        If ofd.ShowDialog() = Windows.Forms.DialogResult.Cancel Then
            Exit Sub
        End If
 
        For Each Pfad As String In ofd.FileNames
            ListBox1.Items.Add(New IO.FileInfo(Pfad))
        Next
 
        ofd.ShowDialog()
 
End Sub