If 入力OK? ' 何かやることがあるならやる Me.DialogResult = DialogResult.OK Return End If
If form.ShowDialog() = DialogResult.OK ' 何か処理 End If