Convert Numeric Value To Words In Userform Excell VBA

Private Sub TextBox1_Change()

On Error Resume Next

If Me.TextBox1.Text <> "" Then

Me.TextBox2.Text = SpellNumber(Me.TextBox1.Text)

Else

Me.TextBox2 = ""

End If

End Sub