作成者	カテゴリ	返答の対象		公開
1122 02/04/2004 09:56 AM		半角カナチェック

こんにちわ。
「Strconv」を使用しては如何でしょうか？

atai = Strconv(FieldData,8)
If atai = FieldData Then
　　Msgbox("半角にしても値が同じなのでOK")
Else
　　Msgbox("元々全角のため値が異なるからError")
End If