แต่ผมต้องการลงคนละตัว ??

dim d
dim sq

d=CDate("29/6/2551")

sq="วันที่ " & day(d) _
& " เดือน " & monthname(month(d)) _
& " พุทธศักราช " & format(year(d),"yyyy")

debug.print sq


ระวังหน่อยก็เรื่องของ ปี ครับ แล้วแต่ว่า system date ถูกเซ็ตให้เป็นแบบไทย หรือตะวันตก
ฟังก์ชั่น day(), month(), year(), monthname(), cdate() เป็นฟังก์ชั่นที่มีมาให้อยู่แล้ว เปิดดูใน help ได้ครับ