Result = Form2.ShowDocument()

Dim m_Result as Long  'фтопку глобальные переменные - обходимся только с локальными!

Public Function ShowDocument(ByVal Caption As String) As Long
   Me.Caption = Caption
   Me.Show vbModal     'Ниже этой строчки код пойдет только после выгрузки или сокрытия формы (нам нужно второе)
   ShowDocument = m_Result 'Т.к. до момента выгрузки формы, все переменные еще имеют значения
   Unload Me
End Function

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   Cancel = Me.Visible  'Не позволяем бесконтрольно выгрузиться по нажатию на крестик в углу формы
   btnCancel_Click
End Sub

Private Sub btnCancel_Click()
   m_Result =  0 
   Me.Hide
End Sub

Private Sub btnOK_Click()
   m_Result =  12  'çàãëóøêà
   Me.Hide
End Sub