特定の日付へ変更するには？

---

テキストに20031001と記述されたら2003/10/01  となり、2003/10/01と記述されても2003/10/01となる処理をつくりたいのですが解決法がわかりません。
どなたかご回答願います。

編集    削除

---

こんな感じかな。

Private Function aaa(ByVal S As String) As String
   aaa = Format(Replace(S, "/", ""), "0000/00/00")
End Function

編集    削除

---

名前

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

本文

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