Convert numbers to words in English and Asian format

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text = String.Empty Then
            Me.RichTextBox1.Text = String.Empty
            Me.RichTextBox2.Text = String.Empty
            Return
        End If

        Dim number As Long = CLng(Me.TextBox1.Text)


        Dim converter As New Converter(number, converter.ConvertStyle.English)
        Me.RichTextBox1.Text = converter.Convert


        converter = New Converter(number, NumberToWords.Converter.ConvertStyle.Asian)
        Me.RichTextBox2.Text = converter.Convert
    End Sub

End Class