Type Info:
Accept As Boolean
Dim Dlg As New ImportMultipleTranslationsDialog Dim Accept As Boolean ' initialize dialog [...] If (Dlg.Show) Then Accept = Dlg.Accept ' more actions [...] End If