'Initialize the library
Dim Ascending As CharCounter
'Add the counter to an EditText
Ascending.Initialize(Activity, EditText1, 10, "A", "L", "Length: ")
'Add this line to the TextChanged event (in this sample, EditText1)
Sub EditText1_TextChanged(Old As String, New As String)
Ascending.Update(Old, New)
End Sub