Написать скрипт который при вводе дня и месяца будет выводить знак зодиака

With CreateObject("htmlfile")
   Y = 96/.Parentwindow.Screen.deviceYDpi
   Y = 15*Y*(.Parentwindow.Screen.Height-188*Y)/2
End With
InBox M, "месяц": InBox D, "день"
MsgBox Zodiac(M, D), 4160, " Знак зодиака"
 
Function Zodiac(iMonth, iDay)
   D = DateSerial(Year(Date), iMonth, iDay)
   Select Case True
      Case D <  #01/21# Zodiac = "Козерог"
      Case D <  #02/20# Zodiac = "Водолей"
      Case D <  #03/21# Zodiac = "Рыбы"
      Case D <  #04/21# Zodiac = "Овен"
      Case D <  #05/22# Zodiac = "Телец"
      Case D <  #06/22# Zodiac = "Близнецы"
      Case D <  #07/23# Zodiac = "Рак"
      Case D <  #08/22# Zodiac = "Лев"
      Case D <  #09/24# Zodiac = "Дева"
      Case D <  #10/24# Zodiac = "Весы"
      Case D <  #11/23# Zodiac = "Скорпион"
      Case D <  #12/23# Zodiac = "Стрелец"
      Case D <= #12/31# Zodiac = "Козерог"
   End Select
End Function
 
Sub InBox(DM, Text)
   Do: DM = Trim(InputBox(vbCr & vbCr & Er & String(3, vbCr) & "Введите " & Text & ":", " Знак зодиака", DM,, Y))
      If DM = "" Then WSH.Quit
      Select Case True
         Case Not IsNumeric(DM) Er = Space(20) & "Ошибка: нечисловое значение!"
         Case IsEmpty(D) And CInt(DM) > 12 Er = 1
         Case Not IsEmpty(D) And Not IsDate(Year(Date) & "/" & M & "/" & D) Er = 1
         Case Else Exit Do
      End Select
      If IsNumeric(Er) Then Er = Space(20) & "Ошибка ввода: превышен максимум!"
   Loop
End Sub