Hi K. Georgiadis Is this what you're looking for maybe?

[VBA] Private Sub FinishButton_Click()
With ActiveWorkbook
.Worksheets("sheet1").Range("b3").Value = Me.TextBox1.Value
.Worksheets("sheet2").Range("a9").Value = Me.TextBox2.Value
With Worksheets("sheet2").Range("a9")
.NumberFormat = "#,##0" 'formats the cell for you
End With
.Worksheets("sheet3").Range("a9").Value = Me.TextBox3.Value
End With

Unload Me

End Sub[/VBA]

Regards,
John