この間はありがとうございました。

早速なのですが、Like演算子で変数の中の文字列をパターン指定するにはどのようにしたら良い
でしょうか

例 :　pp = Text1.Text
      sen = "aaaa", "あいうえお", "カタカナ"

if pp Like (ここのsen変数の中の"aaaa"を指定したい) Then
〜処理〜
End If

> 早速なのですが、Like演算子で変数の中の文字列をパターン指定するにはどのようにしたら良い
> でしょうか
senに代入している文法がおかしいですよね？
つまりsenに関しては情報が伝わらないですよね？
なので貴方が聞きたいことが伝わりませんよね？
よって私が回答することが貴方の望むこととかけ離れているかもしれませんよね？

> if pp Like (ここのsen変数の中の"aaaa"を指定したい) Then
曖昧ですが、sen(LBound(sen))でどうでしょう？(senを配列と仮定して)

> senに代入している文法がおかしいですよね？

sen = "aaaa"", ""あいうえお"", ""カタカナ"
か
sen = "aaaa, あいうえお, カタカナ"
かも・・・。

> > senに代入している文法がおかしいですよね？

大胆な推定２題

1.単に配列にstr定数を初期設定するコーディングを聞いているだけ。
  sen = Array("aaaa", "あいうえお", "カタカナ")

2.Like演算子の使い方が分かっていないか／説明が悪いか。
  「パターン」と特記するからには、第一要素は半角英小文字、第二要素はひらがな、第三要素はカタカナ
  をパターンマッチングさせたいのでは？
  それならば、話はぜんぜん変わる。

> 2.Like演算子の使い方が分かっていないか／説明が悪いか。
>   「パターン」と特記するからには、第一要素は半角英小文字、
>   二要素はひらがな、第三要素はカタカナをパターンマッチングさせたいのでは？
>   それならば、話はぜんぜん変わる。

最初の例題からすると、確かに大胆な発想だけれども、これのような気が非常にする。
でも、AAAを指定したい。ということならば、
第一要素である、半角英数字とパターンマッチングさせたいんではないかなぁ〜。
＃あ〜でもそうなると、senの役割がなくなってしまうかぁ・・・。

> > > senに代入している文法がおかしいですよね？
>
> 大胆な推定２題
>
> 1.単に配列にstr定数を初期設定するコーディングを聞いているだけ。
>   sen = Array("aaaa", "あいうえお", "カタカナ")
>
> 2.Like演算子の使い方が分かっていないか／説明が悪いか。
>   「パターン」と特記するからには、第一要素は半角英小文字、第二要素はひらがな、第三要素は
カタカナ
>   をパターンマッチングさせたいのでは？
>   それならば、話はぜんぜん変わる。

1．Arrayを使うんですね・・・なるほど・・・
2.すみません、説明不足ですね（汗
そのとおりです。

>if pp Like (ここのsen変数の中の"aaaa"を指定したい) Then

if pp Like sen(0) Then

でどうでしょうか？

> > 2.Like演算子の使い方が分かっていないか／説明が悪いか。

ここら辺を勉強して見れば。
hhttp://homepage1.nifty.com/rucio/main/technique/InputChk2.htm

ただ中途半端にLike演算子でチェックするよりRegExpオブジェクトで正規表現を勉強しておいた方が
あとあと良いのかも。
・Like演算子：（主に）ワイルドカード
・RegExp：（完全な）正規表現

私の場合Like演算子は If Filename Like "HOGE.*" くらいしか使わないなぁ。
（逆にそんなチェックはLike演算子が最適）

> > senに代入している文法がおかしいですよね？
>
> sen = "aaaa"", ""あいうえお"", ""カタカナ&q
uot;
> か
> sen = "aaaa, あいうえお, カタカナ"
> かも・・・。

そうでした！！
すみません、自分は初心者なので、肝心なことをわすれてしまいました。

> そうでした！！
> すみません、自分は初心者なので、肝心なことをわすれてしまいました。

ゴメン、そうゆう意味じゃないんだ。
ただ、極力変更を少なくエラーとならないようにしただけっす。