Se carichi l'immagine così è probabile che ti dia subito errore nel caso in cui tu clicchi sul tasto Annulla della OpenFileDialog. Prova con una cosa del genere:

codice:
Dim prova As New OpenFileDialog
                                Dim choice As DialogResult = prova.ShowDialog
                                If choice = DialogResult.OK Then
                                    Dim immagine As Image = Image.FromFile(OpenFileDialog.FileName)
else
messagebox.show("Nessuna immagine selezionata.")
                                End If