>>627
もちろんできます
条件がいくつもあるって複雑な時はユーザー定義関数を使った方がすっきりできます

Option Explicit
Function あいう$(s$)
　　Dim i%, aiu$, L%, t$
　　For i = 1 To Len(s)
　　　　t = Mid(s, i, 1)
　　　　If InStr("あいう", t) Then aiu = aiu + t 'あいうを抽出
　　Next
　　L = Len(aiu)
　　If 1 <= L And L <= 4 Then あいう = aiu '1以上4以下の時だけ
End Function