Format Document : wrong indentation for Case Else in VB

The Format Document command (EditorCommands.FormatDocument) in a "VB .NET Language add-on" document has a problem with the following code:

If a > 3 Then
  Select Case b
    Case 1
    Case 2
    Case Else
  End Select
End If

The End If will be indented to the same level at the End Select.

If you comment out the Case Else, the formatting works fine.
It also works if you take out the If and End If.