Why does my code lose formatting while pasting in forum?

[rumshar]

I was just wondering why the codes pasted by me(despite using code tags) lose formatting? Whereas codes pasted by others appears exactly as in VBE?
With Regards
Rudra

 

[Debraj]

 

[rumshar]

example:

Dim FSO, FileObj, FolderObj As Object
Dim WB As Workbook
Dim MyPath, Msg As String
Dim MyRow As Integer
Dim TDSAmt As Long
Dim TDSDetail, Response As String

 

[rumshar]

Thanks DebRaj,
It worked, I was excluding 'vb'.

With Regards
Rudra

 

[SirJB7]

Hi, rumshar!

I don't like using VB code tag because of this:

Option Explicit

Sub WTFAlignment()
' description
    ' constants
    Const ki1 = 1
    Const ks1 = "1"
    ' declarations
    '  something
    Dim I As Integer
    '  other things
    Dim A As String
    ' start
    A = ""
    ' process
    For I = 0 To ki1
        A = A & ks1
    Next I
    ' end
    MsgBox A
    Beep
End Sub

I prefer no code tag (in fact "someone" could someday update the dropdown list options at the dialog from "General code", PHP & HTML to something more suitable for these forums usage):

Sub WTFAlignment()
' description
    ' constants
    Const ki1 = 1
    Const ks1 = "1"
    ' declarations
    '  something
    Dim I As Integer
    '  other things
    Dim A As String
    ' start
    A = ""
    ' process
    For I = 0 To ki1
        A = A & ks1
    Next I
    ' end
    MsgBox A
    Beep
End Sub

The 2nd code reflects the real indenting of my code... With That Fooling Aligment... it's not a choice for me.

Regards!

 

[rumshar]

@SirJB7
Thanks for differentiating these two types. I had not noticed that while 'Coloring' the code one has to compromise with the indent of it..
Just pasting your codes under different tag.(This is for experiment only)
PHP

Sub WTFAli2gnment()
' description
    ' constants
    Const ki1 = 1
    Const ks1 = "1"
    ' declarations
    '  something
    Dim I As Integer
    '  other things
    Dim A As String
    ' start
    A = ""
    ' process
    For I = 0 To ki1
        A = A & ks1
    Next I
    ' end
    MsgBox A
    Beep
End Sub

General

Sub WTFAli2gnment()
' description
    ' constants
    Const ki1 = 1
    Const ks1 = "1"
    ' declarations
    '  something
    Dim I As Integer
    '  other things
    Dim A As String
    ' start
    A = ""
    ' process
    For I = 0 To ki1
        A = A & ks1
    Next I
    ' end
    MsgBox A
    Beep
End Sub

HTML

Sub WTFAli2gnment()
' description
    ' constants
    Const ki1 = 1
    Const ks1 = "1"
    ' declarations
    '  something
    Dim I As Integer
    '  other things
    Dim A As String
    ' start
    A = ""
    ' process
    For I = 0 To ki1
        A = A & ks1
    Next I
    ' end
    MsgBox A
    Beep
End Sub