Try something like this:

Const AppTag As String = "TempBar"

Sub CreateBarWithTB()
Dim CB As CommandBar
Dim TB As CommandBarControl

DeleteBar

Set CB = Application.CommandBars.Add(AppTag)

Set TB = CB.Controls.Add(msoControlEdit)

CB.Visible = True
End Sub

Sub DeleteBar()
On Error Resume Next
Application.CommandBars(AppTag).Delete
End Sub


--
Regards,

Juan Pablo González

"achmed" wrote in message
...
Good morning. I use VBA in Excel XP with Windows 2000.

Can someone please show me example code for adding a plain textbox to a
toolbar? I cannot find this in help.

Thank you.