テキストボックスの中に小文字のアスタリスクがあるのを判別する方法

入力したテキストボックスの中に
小文字のアスタリスク（数は不定）が
あるかどうかを判定するには、
どのようにすれば良いでしょうか？

No.2 ベストアンサー 回答者： imogasi 回答日時： 2002/10/31 07:03

FormにTextboxを２つ貼り付け、

Private Sub Text1_LostFocus()
MsgBox Text1.Text
p = InStr(Text1.Text, "*")
If p = o Then
MsgBox "アステリスクがありません"
Else
MsgBox "アステリスクがあります"
End If
End Sub
Text1に文字を入れ、Text2にFocusを移すと
*があれば「アステリスクがあります」とメッセージを出します。
VBAならTextBox1がText1になります。

この回答へのお礼

＞回答者の方へ

ありがとうございました。
解決出来ました！

お礼日時：2002/10/31 13:52

No.1 回答者： bugmaru 回答日時： 2002/10/31 02:04

InStr()関数を使えば特定の文字、文字列が有るか無いか判定できます。