i = ((CLng(Value) Mod  100 ) \  10 )
    If i >  1  Then
        If s <> "" Then s = s & " "
        Select Case Падеж
            Case WdПадежИменительный
                s = s & Choose(i, "", "двадцать", "тридцать", "сорок", "пятьдесят", "шестьдесят", "семьдесят", "восемьдесят", "девяносто")
            Case WdПадежРодительный
                s = s & Choose(i, "", "двадцати", "тридцати", "сорока", "пятидесяти", "шестидесяти", "семидесяти", "восьмидесяти", "девяноста")
            Case WdПадежДательный
                s = s & Choose(i, "", "двадцати", "тридцати", "сорока", "пятидесяти", "шестидесяти", "семидесяти", "восьмидесяти", "девяноста")
            Case WdПадежВинительный
                s = s & Choose(i, "", "двадцать", "тридцать", "сорок", "пятьдесят", "шестьдесят", "семьдесят", "восемьдесят", "девяносто")
            Case WdПадежТворительный
                s = s & Choose(i, "", "двадцатью", "тридцатью", "сорока", "пятьюдесятью", "шестьюдесятью", "семьюдесятью", "восемьюдесятью", "девяностами")
            Case WdПадежПредложный
                s = s & Choose(i, "", "двадцати", "тридцати", "сорока", "пятидесяти", "шестидесяти", "семидесяти", "восьмидесяти", "девяноста")
        End Select
    End If

Public Function NumberToStr(ByVal Val As Currency) As String
   Dim s As String
   Dim t As Integer
   Dim iVal As Currency
   s = ""
   'Выделить единцы до тысячи
   iVal = Val Mod  1000      'Единицы
   Val = Val \  1000        'Уменьшить число
   s = s & ThousandsToStr(iVal)
   '
   If Val >  0  Then   'Этот блок повторить для миллионов, миллиардов
      iVal = Val Mod  1000 
      Val = Val \  1000 
      s = ThousandsToStr(iVal) & "тысяч " & s
   End If
   NumberToStr = s
End Function

Public Function ThousandsToStr(ByVal iVal As Integer) As String
   Dim s As String
   Dim i As Integer
   Dim iUnits As Integer
   i = iVal \  100     'Получить кол-во сотен '\ - Целочисленное деление
   Select Case i
      Case  1 
         s = "сто "
      Case  2 
         s = "двести "
      Case  3 
         s = "триста "
      Case  4 
         s = "четыреста "
         'остальное дописать
   End Select
   
   iVal = iVal Mod  100   'Получить кол-во десятков
   i = iVal \  10 
   iUnits = iVal Mod  10 
   Select Case i
      Case  1     'Особый случай, 11 - 19
         iUnits = iVal Mod  20 
      Case  2 
         s = s & "двадцать "
      Case  3 
         s = s & "тридцать "
      Case  4 
         s = s & "сорок "
         '1-9 дописать
   End Select
   Select Case iUnits
      Case  1 
         s = s & "один "
      Case  2 
         s = s & "два "
      Case  3 
         s = s & "три "
      '4-10 дописать
      Case  11 
         s = s & "одиннадцать "
      Case  12 
         s = s & "двенадцать "
      Case  13 
         s = s & "тринадцать "
      '14-19... дописать
   End Select
   ThousandsToStr = s
End Function