Private Sub кнопка24_click()
Select Case Группа34.Value 
Case  1 
   response = msgbox("Для быстрой работы в поиске можно установить курсор в поле, по которому будет вестись поиск (например: решение), после этого выбрать 'тип совпадения' и нажать 'Найти далее'.", vbYesNo, "Cправка")
   If response = vbYes Then  MyString = "Yes1"

Case  2 
   response = msgbox("Для быстрого ввода даты используйте кнопку рядом с полем даты. В результате выведется календарь, в котором при нажатии даты в поле даты выведется выбранная в календаре дата.", vbYesNo, "Справка")
   If response = vbYes Then  MyString = "Yes2"

Case  3 
   response = msgbox("Для перемещения можно использовать стрелки перехода к следующей/предыдущей записи, либо использовать поиск по каким-либо критериям. При прокручивании также происходит перемещение.", vbYesNo, "Cправка")
   If response = vbYes Then  MyString = "Yes3"

End Select

End Sub