VB6で変数hogeの値が、A,C,F,J,O,Uのどれかの場合に実行という条件分岐を作る場合、

If hoge = "A" Or hoge = "C" Or hoge = "F" Or hoge = "J" Or hoge = "O" Or hoge = "U" Then 処理

Select Case hoge
　Case "A", "C", F"", "J", "O", "U"
　　処理
End Select

等の方法がありますが、IFでそのまま等価式の論理和を条件にすると
1行が極端に長くなるし、書くのも面倒。
逆にSelect Caseだと分岐先は1つなのに4行のコードが必要になってしまう。
行継続や：は知ってますがIfやSelect Caseではあまり使いたくないし。

こういう場合Ifで(正規表現を使わず)もっと手軽に書く方法はありませんか?
因みに実際の条件は上記例のように1文字ではないのでLikeは使えません。

IfやSelect Caseで処理できない訳ではないし、正規表現の使い方も知ってるので
それほど困ってるわけではありませんが、何か良い方法があるなら知りたいのでよろしくお願いします。