文字数を数えるツール

Dim objHTML
Set objHTML = CreateObject("htmlfile")
MsgBox(Len(Trim(objHTML.ParentWindow.ClipboardData.GetData("text"))))
Set objHTML = Nothing

上記をメモ帳に貼り付けて拡張子をtxtからvbsへ変更

あいうえお

上記をコピーして拡張子を変更したファイルをダブルクリック

5と出ればOK

[改訂版] VBScriptポケットリファレンス (POCKET REFERENCE)