Transfer textbox Numeric Value To worksheet In words format

Private Sub CommandButton1_Click()
Sheet1.Range("A100000").End(xlUp).Offset(1, 0).Value = Me.TextBox1.Text
Sheet1.Range("A100000").End(xlUp).Offset(0, 1).Value = Me.TextBox2.Text
Sheet1.Range("A100000").End(xlUp).Offset(0, 2).Value = SpellNumber(Me.TextBox2.Text)
End Sub