ลองใช้ฟังก์ชันนี้ดูครับ

Function Conver2Date3(strDate As String)
Dim NewDate As Date
NewDate = DateSerial(Right(strDate, 4), Mid(strDate, 3, 2), Left(strDate, 2))
Conver2Date3 = NewDate
End Function

ใช้ DateSerial เข้าช่วย เพื่อให้การเปลี่ยนมีความถูกต้อง

รูปแบบการใช้
DateSerial(Year,Month,Day)

จากนั้นก็ใช้ Right() ไปแยก 4 หลักหลัง ไปใส่ส่วน Year
ใช้ Mid() ไปเอาหลักที่ 3 แล้วนับไปให้ครบ 2 หลัก จะได้หลักที่ 4 มาด้วย นำหลักที่ 3 และ 4 มาเป็น Month
สุดท้าย นำ 2 หลักแรกมาเป็น Day

ฟังก์ชันนี้จะใช้ได้ก็ต่อเมื่อ มีการคียวันที่ และเดือน เป็น 2 หลักตลอด ด้วยนะครับ

ขอบคุณอาจาร์ยมากครับ