[Bug 54490] New: vbscript fails to compile when statement follows ElseIf

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=54490

Bug ID: 54490
           Summary: vbscript fails to compile when statement follows
                    ElseIf
           Product: Wine
           Version: 7.21
          Hardware: x86-64
                OS: Linux
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: vbscript
          Assignee: [e-mail]
          Reporter: [e-mail]
      Distribution: ---

While working on porting Visual Pinball to cross platform, I ran into a code
example where ElseIf had a statement was on the same line:

If Lampz.state(130) = 0 AND Lampz.state(132) = 0 AND Lampz.state(136) =
0 Then
'              
ACDC.ColorGradeImage="ColorGrade_off":Translite.Blenddisablelighting=0.2:For
Each bulb in BandMembersPoster: bulb.IntensityScale=0 :Next

ACDC.ColorGradeImage="ColorGrade_off":LM_Translite.intensityscale=0:For Each
bulb in BandMembersPoster: bulb.IntensityScale=0 :Next
        ElseIf Lampz.state(130) > 0 AND Lampz.state(132) = 0 AND
Lampz.state(134) > 0  AND Lampz.state(136) = 0 Then
ACDC.ColorGradeImage="ColorGrade_red"
        ElseIf Lampz.state(130) = 0 AND Lampz.state(132) > 0 AND
Lampz.state(134) = 0  AND Lampz.state(136) = 0 Then
ACDC.ColorGradeImage="ColorGrade_blue"
        Else
'              
ACDC.ColorGradeImage="ColorGrade_on":Translite.Blenddisablelighting=4:For Each
bulb in BandMembersPoster: bulb.IntensityScale=1:Next

ACDC.ColorGradeImage="ColorGrade_on":LM_Translite.intensityscale=1:For Each
bulb in BandMembersPoster: bulb.IntensityScale=1:Next
        End If

The grammar was expecting a NL after ElseIf Then.

I have submitted a merge request:

https://gitlab.winehq.org/wine/wine/-/merge_requests/2188