zmienna = "123"
With ActiveCell
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, .Width, .Height).Name = "TXBX_" & zmienna
End With

With ActiveSheet.Shapes("TXBX_" & zmienna).TextFrame
.Characters.Text = zmienna
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With
        
        With ActiveSheet.Shapes("TXBX_" & zmienna).TextFrame2.TextRange.Characters(2, 2).Font
            .Bold = msoTrue
            .NameComplexScript = "Verdana"
            .NameFarEast = "Verdana"
            .Fill.Visible = msoTrue
            .Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent1
            .Size = 6
            .Name = "Verdana"
        End With

Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = zmienna
        With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6).Font
            .Bold = msoTrue
            .NameComplexScript = "Verdana"
            .NameFarEast = "Verdana"
            .Fill.Visible = msoTrue
            .Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent1
            .Size = 3
            .Name = "Verdana"
        End With
Selection.ShapeRange.Name = "TXBX_" & zmienna

With ActiveCell
With ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, .Width, .Height).TextFrame
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With
End With

With ActiveCell
        ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, .Width, .Height).Select
End With

TextBox1.BackColor = &H80000018
MsgBox Hex(TextBox1.BackColor)