Excel Text Box to string in a cell

Hi

I have a text box in excel and I need to send its contents to a cell or in an email. The current code displays an error.

Sub TextBox()

Activesheet.Range("A1") = TextBox 1.text

End Sub

Can anyone help me fix this code?

Many Thanks

You have given us next to no context to help you with your problem...is this Visual Basic? These are java forums - a far cry from Visual basic.