Visual Basic para Aplicaciones - Pasarle una variable al texto de un cuadro

Hola Buenas
Mi intencion es llenar un texto, en un shape, osea un cuadrado.
Este texto es variable ingresado por el usuario.
Traté con estos que comento
Usuario es una variable String que le pasa otro procedimiento

Sub Realizo(Usuario)

Dim eso As String

eso = Usuario ' creo que esto es innecesario

ActiveSheet.Shapes("Rectangle 14").Select

' aca probe con esto (Obvio no anduvo)
ActiveSheet.Shapes("Rectangle 14").Text.Value = eso

Selection.Characters.Text = "algo" ' (asi si anda pero asi solo acepta un texto fijo)

' luego aca probe con esto (tampoco anduvo)
Selection.Characters = eso

With Selection.Characters(Start:=1, Length:=3).Font
.Name = "Verdana"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Text = eso ' otra que probé
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Cells(12, 1).Select
End Sub

Que hago mal?
Les dejo saludos!

Sub Realizo(ByVal usuario As String)
ActiveSheet.Shapes("Rectangle 14").OLEFormat.Object.Characters.Text = usuario
End Sub

Saludos desde Baires, JuanC

Obvio que si me lo pasa JuanC anda!!

Gracias de nuevo!