[A1].Characters.Text(Start, Length)
[A1].Characters(Start, Length).Caption

Sub Tester()
    With ActiveSheet
        AddValue .Range("A1"), "Hello", vbRed
        AddValue .Range("A1"), "Hello", vbGreen
        AddValue .Range("A1"), "Hello", vbBlue
    End With
End Sub
Sub AddValue(rngVal As Range, val, theColor As Long)
    Const SEP As String = " "
    Dim firstChar As Long, extra As Long
    firstChar = 1 + Len(rngVal.Value)
    extra = IIf(firstChar = 1, 0, 1)
    With rngVal
        .Characters(firstChar).Text = IIf(Len(rngVal.Value) > 0, SEP, "") & val
        .Characters(firstChar + extra, Len(val)).Font.Color = theColor
    End With
End Sub

Sub RunConcat()
  ConcatenatewithFormat Selection, ThisWorkbook.ActiveSheet.Cells(Selection.Row, Selection.Column + Selection.Columns.Count)
End Sub
Sub ConcatenateWithFormat(InputRange As Range, OutPutRange As Range)
Dim i As Integer, q As Variant
Dim sText As String, c As String, A As Variant
Dim oChars As Characters, n As Integer
  OutPutRange.Clear: n = 0
  For Each A In InputRange
    sText = A.Text
    For i = 1 To Len(sText)
      Set oChars = A.Characters(i, 1)
      Set q = OutPutRange.Characters(i + n, 1)
      q.Caption = oChars.Caption
      With oChars
        q.Font.Bold = .Font.Bold
        q.Font.Name = .Font.Name
        'q.Font.Color = .Font.Color
        q.Font.ColorIndex = .Font.ColorIndex
        q.Font.FontStyle = .Font.FontStyle
        q.Font.OutlineFont = .Font.OutlineFont
        q.Font.Size = .Font.Size
        q.Font.Strikethrough = .Font.Strikethrough
        q.Font.Subscript = .Font.Subscript
        q.Font.Superscript = .Font.Superscript
        q.Font.Underline = .Font.Underline
      End With
    Next i
    n = n + Len(sText)
  Next A
End Sub

CreateObject("Shell.Application").Namespace(0).Self.InvokeVerbEx ("open")

objFIV = CreateObject("Shell.Application").Namespace(0).Items().Verbs

CreateObject("Shell.Application").Namespace(0).Self.InvokeVerbEx ("Explore")

Sub TabTest()
If i = 1 Then
j = 2
End If
End Sub

Sub TabTest()
    If i = 1 Then
        j = 2
    End If
End Sub

Sub sdd()
Dim a0 As Variant 'All types
a1! = 1 'Single / -3.402823E38 to -1.401298E-45, 1.401298E-45 to 3.402823E38
a2@ = 1 'Currency / -922,337,203,685,477.5808 to 922,337,203,685,477.5807
a3# = 1 'Double / -1.79769313486232E+308 to -4.94065645841247E-324, 4.94065645841247E-324 to 1.79769313486232E+308
a4$ = 1 'String / 0 to 2,147,483,647 characters
a5% = 1 'Integer / -32,768 to 32,767
a6^ = 1 'LongLong / -9,223,372,036,854,775,808 to 9,223,372,036,854,775,807
a7& = 1 'Long / -2,147,483,648 to 2,147,483,648
a8 = 1 'Variant 'All types
End Sub

aa# = 0
a1& = 10
a2% = 10
aa = (a1 * 100000) * (a2 * 1000)
aa = (a1 * 100000) + (a2 * 1000)
aa = (a1 * 10000) * (a2 * 1000)

aa# = 0
a1& = 10
a2& = 10
aa = (a1 * 100000) * (a2 * 1000)

'a1 = 100 * 100 * 100
a1# = 1000000
a1 = 100 * 100: a1 = a1 * 100
a1 = 100# * 100 * 100
a1 = CLng(100) * 100 * 100

a1 = CLng(0) + 100 * 100 * 100
a1 = CLng(100 * 100 * 100)

a0 = 100
a1 = a0 * 100 * 100
Dim a00(1) As Integer
a00(0) = 100
a1 = a00(0) * 100 * 100

a0 = 100
a1 = a0 * (100 * 100 + 1)
Dim a00(1) As Integer
a00(0) = 100
a1 = CLng(1) * (a00(0) * 100 * 100 + 1)

/Progress [0-100]
/State [NoProgress, Indeterminate, Normal, Error, Paused]