Counting Characters in a Selection with WordBasic

When you are developing macros, it is often helpful to know how many characters are in a text selection. The following WordBasic macro, CharCount, will display the number of characters in a selection.

Sub MAIN
Title$ = "CharCount"
On Error Goto HugeString
InSelection = SelType()
If InSelection = 2 Or InSelection = 6 Then
    CharCount = Len(Selection$())
    CharCount$ = Mid$(Str$(CharCount), 2) + " character"
    If CharCount <> 1 Then CharCount$ = CharCount$ + "s"
    MsgBox CharCount$, Title$
Else
    Beep
    MsgBox "No text selected", Title$, 16
End If
Goto Done

HugeString:
    MsgBox "Selection too large", Title$, 48

Done:
End Sub