Issue with posting code using [CODE] tags

[RhinoBull]

I just noticed that empty lines are being eliminated which causes code to loose its readability.
As it appears to me if any "empty" line has any number of spaces or tab character then it will be deleted; if there are no additional chars then empty line remains.

Example:

'wrong:
Private Sub Command1_Click()
    Dim number As Long
    Dim result As Long
    
    number = 1999
    result = CLng(VBA.Left$(CStr(number), Len(CStr(number)) - 2) & "00")
    
    Debug.Print result
    
End Sub


'expected:
Private Sub Command1_Click()
    Dim number As Long
    Dim result As Long

    number = 1999
    result = CLng(VBA.Left$(CStr(number), Len(CStr(number)) - 2) & "00")

    Debug.Print result

End Sub

The question is when did this get broken? It was always working fine.
So, basically we loose original formatting.