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

---

テキストに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 (省略可)

本文

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

※作成する前に利用規約をご確認ください。

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。