Number format in Textbox on userform

[officeclerk]

I have a basic userform with textboxes for data entry. Is it possible to format the data so when it goes to the spreadsheet, that it will stay in number format instead of changing the cell format to text?



This is what they currently look like.

 
Private Sub TextBox1_Change()
Sheets("Sheet1").Range("B25").Value = Me.TextBox1
End Sub

Can this be done by changing the textbox properties?

Thank you.