指定位置に"-"を挿入するには？ (ID:121220)

名前

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

本文 XXXX-XX-XX-Xというように4文字入力したら"-"を自動挿入、さらに 2文字入力したらまた"-"挿入するようにしたいのですが SelStartプロパティやSelTextプロパティをしようすればできる ようなことが書いてあったのですがいまいちわかりません。。 宜しくお願いします。 環境はVB6.0です