Puoi fare così:
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.filename <> vbNullString Then
MsgBox CommonDialog1.filename
Else
MsgBox "Operazione annullata", vbOKOnly + vbCritical, "Annullato!"
End If
End Sub
Se il file viene aperto una volta e poi si preme sul pulsante annulla, la CommonDialog restituisce il nome dell'ultimo file aperto (quindi apparentemente non viene annullata l'operazione).
Ciao,
Berello