Function ИНПОЗ (Запрос As String, Столбец_поиска As Range, Столбец_ответа As Range) As String
Application.Volatile True
ИНПОЗ = Application.WorksheetFunction.Index(Столбец_ответа.Address, Application.WorksheetFunction.Match(Запрос, Столбец_поиска.Address, 0),1)
End function

For each i in WhatV
исходныйтекст=replace (исходныйтекст, WhatV (i), WhatF (i)
МояФункция=исходныйтекст
Next i

Option compare text

Public function МояФункция (исходныйтекст as String) as String
Application.Volatile True
исходныйтекст=replace(replace(replace..... Исходныйтекст.... 'И соответствующее)
МояФункция=исходныйтекст
 End function

Option Explicit 'Потребовать явного объявления всех переменных в файле

Public myRibbon As IRibbonUI
Public myText As Date
Public gCount As Date

Sub timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "getLabel_label1"
End Sub
'customUI (элемент: customUI, атрибут: onLoad), 2010+
Private Sub onLoadRibbon(ribbon As IRibbonUI)
    'Объявите глобальную переменную объекта ленты:
    Set myRibbon = ribbon
End Sub

'editBox1 (элемент: editBox, атрибут: onChange), 2010+
Private Sub onChange_editBox(control As IRibbonControl, text As String)
    On Error GoTo instr
    myText = text
    On Error GoTo 0
    myRibbon.Invalidate
instr:
    If Err.Number = 13 Then MsgBox "Вы ввели не дату!" & Chr(10) & "Пожалуйста введите дату призыва!", vbExclamation, "Ошибка"
End Sub

Sub getLabel_label1(control As IRibbonControl, ByRef label)
    Dim res As Date
    Dim days As Integer
    If myText = 0 Then Exit Sub
    days = Date - myText
    res = Date - myText - TimeSerial(0, 0, 1)
    If myText = Date Then
    label = "С ДМБ!!!"
    Else
    If myText > Date Then
    MsgBox "Введите дату ПРИЗЫВА!", vbExclamation, "Ошибка"
    label = "Err"
    Else
    If (365 - res) < 0 Then
    MsgBox "Скорее всего, Вы не срочник!", vbExclamation, "Ошибка"
    label = "Err"
    Else
    label = (365 - days) & " " & Format((365 - res), "hh:mm:ss")
    End If: End If
    End If
    Call timer
End Sub

Option Explicit

public SetTextValue$

Public Sub SetText (control as IRibbonControl, text$)
  SetTextValue = text  
  Call SetLabelValue 
End Sub 

Public Sub SetLabelValue (control as IRibbonControl, byRef textdate) 
  textdate  = date - SetTextValue 
Enb Sub 

<editBox id="dateR" onChange="SetText" enabled="true" getText="SetText" />
<LabelControl id="dateV" getLabel="SetLabelValue"/>

Sub exit_macro_click()
  cancel = true 
end sub

Sub userform_queryclose(Cancel as integer, CloseMode as integer) 
  if closemode = 0 then cancel = true 
end sub