ลอง

? DateSerial(Year(Date),Mid("2405",3),Left("2405",2))
24/5/2546

ให้ดู DateSerial() เพิ่มเติมจาก Help

ส่วนการแปลงเป็นวันที่เป็น String ลอง

Function Date2String(dte As Date) As String
Dim strDay As String, strM As String, strY As String
strDay = Left(dte, InStr(dte, "/") - 1)
strM = Mid(dte, InStr(dte, "/") + 1)
strY = Right(Mid(strM, InStr(strM, "/") + 1), 2)
strM = Format(Left(strM, InStr(strM, "/") - 1), "00")
Date2String = strDay & strM & strY
End Function

ขอบคุณอาจารย์สุภาพครับ
: )