like演算子を使って金額入力項目形式のチェックをするには？

解決

---

お世話になります。
画面で金額入力するところがあるのですが、ロストフォーカス時、
Format関数にて"###,###,###,###"に変更しています。(３桁区切り)
桁数は１桁から１２桁までです。
でその後、like演算子にて"###,###,###,###"かどうかをチェックしています。

If Text1.Text Like "###,###,###,###" = False Then
   MsgBox "金額の入力方法が正しくありません"
end if

としているのですが、3桁や4桁など桁数が違うとき、Falseが返ってしまいます。
1,234や123だとtrue,1234のように区切られてなければfalseというような
チェックにするにはどのようにすればよいでしょうか。

編集 削除

---

提示の方法を活かす形なら、下記のような方法でどうでしょうか。

Dim length As Long
length = Len(Text1.Text)
If Text1.Text Like Right("###,###,###,###", length) = False Then
   MsgBox "金額の入力方法が正しくありません"
end if

編集 削除

---

お世話になります。
よねKENさん、ありがとうございます。
おかげさまで、無事解決することができました。
本当にありがとうございました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。