If ElseIf condition in VBScript

Option Explicit

REM if elseif checking

Dim intDayOfWeek
intDayOfWeek = WeekDay(Date)
Dim strMsg

If intDayOfWeek = 1 Then
    strMsg = "Sunday"
ElseIf intDayOfWeek = 2 Then
    strMsg = "Monday"
ElseIf intDayOfWeek = 3 Then
    strMsg = "Tuesday"
ElseIf intDayOfWeek = 4 Then
    strMsg = "Wednesday"
ElseIf intDayOfWeek = 5 Then
    strMsg = "Thursday"
ElseIf intDayOfWeek = 6 Then
    strMsg = "Friday"
ElseIf intDayOfWeek = 7 Then
    strMsg = "Saturday"
Else
    strMsg = "Unknown Day"
End If
MsgBox "Today is "&strMsg