По введенному названию дня недели выдать его порядковый номер - VB

Private Sub Command1_Click()
Dim i&, s$
s = LCase$(Trim$(InputBox("Введите полное или краткое название дня недели", , "Пятница")))
For i = 1 To 7
  If s = WeekdayName(i) Or s = LCase$(WeekdayName(i, True)) Then
    MsgBox WeekdayName(i) & " (" & WeekdayName(i, True) & ") - " & i & "-й день недели" _
      & vbLf & vbLf & "(согласно системным установкам)", vbInformation
    Exit Sub
  End If
Next
MsgBox s & " - нет такого дня недели", vbExclamation
End Sub