Keywords don't align in vbscript file

When I format my vbscript (Ctrl+Alt+F), I get the result as follow,

```
Sub macro()
With ActiveChart
...
End With

If ... Then
...
End If

Do While statement
...
Loop
End Sub
```

But what I want to get is as,

```
Sub macro()
With ActiveChart
...
End With

If ... Then
...
End If

Do While statement
...
Loop
End Sub
```

Is there a bug, or my settings not right?