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.OK Then
            For Each Pfad As String In ofd.FileNames
                ListBox1.Items.Add(New IO.FileInfo(Pfad))
            Next
        End If
 
End Sub