作成者	カテゴリ	返答の対象		公開
初心者 06/19/2007 04:30 PM		全角スペースのチェック

ご返答して、ありがとうございます。
Sub Initialize
'---2007/06/11 テスト---
Dim kanji As String
Dim atai As String
Dim n As String

n = "　"
atai = Strconv(Mid$(kanji,n,1),8)
If m = kanji Then
msgbox "ok"
End If

End Sub
これあってますか？？