With OpenFileDialog1
  .FileName = ""
  .Filter = "JPEG-Dateien|*.jpg|Alle Dateien|*.*"
  If .ShowDialog() = Windows.Forms.DialogResult.OK Then
    HoleExifInfos(.FileName)
  End If
End With