>>382
存在するかどうかって言ってるんじゃなくて、SHIFT_JIS環境で想定がないんじゃないかって言ってるんだよ
ウィキでみるかぎり、U+00A3とU+FFE1らしいから、それチェックすればいいだろ
こんな感じか
Function foundPound(word As String) As Long
Dim pos As Long
pos = 0
Do Until pos >= Len(word)
pos = pos + 1
If Mid(word, pos, 1) = ChrW(&HA3) Or Mid(word, pos, 1) = ChrW(&HFFE1) Then
foundPound = pos
Exit Function
End If
Loop
End Function