>>376
半角ポンドとエルは同じ文字コードなのかな。スラッシュと円マークみたいなもんかね
こういう場合は、検索する側、される側を両方半角小文字に揃えれば良い

Function testfunc01(word) As Integer
Dim serchChar As String

serchChar = "£"
testfunc01 = InStr(StrConv(word, 10), StrConv(serchChar, 10))

End Function