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

１５１５ 2003-10-03 00:56:30 No: 108937

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

魔界の仮面弁士 2003-10-03 01:59:28 No: 108938

こんな感じかな。

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