[文字列の長さを取得する（ASCII）]

文字列のバイト数を取得します。
LenB() 関数は、UNICODE のバイト数を返すので、アスキー文字（シフトＪＩＳ）用の処理を作ってみました。

【ソースコード】

[tips0023.vbs]
Option Explicit
On Error Resume Next

Dim strAscii            ' 文字列
Dim lngByte             ' バイト数
Dim lngLoop             ' ループカウンタ
Dim strChkBuff          ' 確認用バッファ

strAscii = "あいうえおabcde"
lngByte = 0

For lngLoop = 1 To Len(strAscii)
    strChkBuff = Mid(strAscii, lngLoop, 1)
    If (Asc(strChkBuff) And &HFF00) = 0 Then
        lngByte = lngByte + 1
    Else
        lngByte = lngByte + 2
    End If
Next

WScript.Echo "『" & strAscii & "』は" & lngByte & " バイトです。"

【実行結果】

C:\> cscript //NoLogo tips0023.vbs
『あいうえおabcde』は15 バイトです。