Sub s()
  Dim v_Sh As Worksheet
  Dim v_OLEObject As OLEObject
  Dim v_TextBox As MSForms.TextBox
  
  Set v_Sh = ThisWorkbook.Worksheets( 1 )
  Set v_OLEObject = v_Sh.OLEObjects.Add(ClassType:="Forms.TextBox.1")
  Set v_TextBox = v_OLEObject.Object

  With v_OLEObject
    .Left = v_Sh.Range("B2").Left
    .Top = v_Sh.Range("B2").Top
  End With
  
  With v_TextBox
    .Text = "Текст"
    .BackColor = &HC0FFC0 'RGB(192, 255, 192)
  End With
End Sub

Sub s()
  Dim v_Sh As Worksheet
  Dim v_OLEObject As OLEObject
  
  Set v_Sh = ThisWorkbook.Worksheets( 1 )
  Set v_OLEObject = v_Sh.OLEObjects.Add(ClassType:="Forms.TextBox.1")

  v_OLEObject.Name = "TextBox1"
  
  With v_Sh.OLEObjects("TextBox1")
    .Left = v_Sh.Range("B2").Left
    .Top = v_Sh.Range("B2").Top
  End With
  
  With v_Sh.OLEObjects("TextBox1").Object
    .Text = "Текст"
    .BackColor = &HC0FFC0 'RGB(192, 255, 192)
  End With
End Sub