Select Case Button.KEY
     Case "extract"
      If SSTab1.Tab = 4 Then
      frmMUPIP.Show
      '.................. ???
      MsgBox "Сюда не идти, пока загружена форма  - frmMUPIP"
      End If

   'Case "save"
    '  If SSTab1.Tab = 4 Then
    '  Call Applay
    '  End If
 End Select