Sorry, I don't understand what you mean. Perhaps you have the cell formatted
as Text.

--

Vasant

"reb" wrote in message
...
tried it ,but it still shows a text,problem is ,it won't add,,shows as a
text input
Private Sub TextBox1_change()
Dim c As Range
Set c = Worksheets("Sheet1").Range("a2")
c.Value = TextBox1