With OpenFileDialog1
     .Title = "Load BIN-File"
     .InitialDirectory = .....
     .Filter = "BIN-Files (*.bin)|*.bin|All files (*.*)|*.*"
     .DereferenceLinks = False
     .Multiselect = False
     .ValidateNames = True
     .CheckFileExists = True
     .AutoUpgradeEnabled = False
     .SupportMultiDottedExtensions = False
     .FileName = ""
     If .ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
     crash.text = .FileName
End With