皆さんありがとうございます。
>>444
実は
Case "a" To "z", "A" To "Z"
hasAlpha = True
Case "0" To "9"
hasNum = True
で
If　hasAlpha = True　And　hasNum = True
Okメッセージ

これでやってるんですが、うまくいかないんです。