全角/半角混在のテキストからバイト指定で文字列を切り出す

    Dim buf AS String
    Open "TESTFILE.TXT" For Input As #1
    Do Until EOF(1)
        Line Input #1, buf
        '100バイト目から4桁取り出す
        Debug.Print StrConv(MidB(StrConv(buf, vbFromUnicode), 100, 4), vbUnicode) 
    Loop
    Close #1

vbUpperCase	1	文字列を大文字に変換します。
vbLowerCase	2	文字列を小文字に変換します。
vbProperCase	3	文字列の各単語の先頭の文字を大文字に変換します。
vbWide	4	文字列内の半角文字 (1 バイト) を全角文字 (2 バイト) に変換します。
vbNarrow	8	文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換します。
vbKatakana	16	文字列内のひらがなをカタカナに変換します。
vbHiragana	32	文字列内のカタカナをひらがなに変換します。
vbUnicode	64	システムの既定のコード ページを使って文字列を Unicode に変換します。
vbFromUnicode	128	文字列を Unicode からシステムの既定のコード ページに変換します。