ขอเสนออีกทางเลือก

Function CV_DATEEN(inp As Date) As String
    Dim dVal As String, mVal As String, yVal As String
    Dim fM(12) As String
        fM(1) = "January"
        fM(2) = "February"
        fM(3) = "March"
        fM(4) = "April"
        fM(5) = "MAY"
        fM(6) = "June"
        fM(7) = "Juy"
        fM(8) = "August"
        fM(9) = "September"
        fM(10) = "October"
        fM(11) = "November"
        fM(12) = "December"
            dVal = Format(inp, "d")
            mVal = Format(inp, "mm")
            yVal = Format(inp, "yyyy")
        CV_DATEEN = dVal & " " & fM(mVal) & " " & (yVal - 543)
End Function

ขอบคุณมากครับ ลองแล้วได้ผลดีเยี่ยมเลยครับ