ลองกำหนด Format เป็น dd mmm yy ดูว่าได้มั๊ย

เขียนฟังก์ชั่นประมาณนี้

Public Function EngMonth(iDate As Date) As String
    Dim iMonth As String
    Select Case Month(iDate)
        Case 1
            iMonth = "Jan"
        Case 2
            iMonth = "Feb"
        Case 3
            iMonth = "Mar"
        Case 4
            iMonth = "Apr"
        Case 5
        Case 6
        Case 7
        Case 8
        Case 9
        Case 10
        Case 11
        Case 12
    End Select
        EngMonth = Day(iDate) & " " & iMonth & " " & Format(iDate, "yy")
End Function

การใช้งาน

engmonth(#1/2/2015#)
2 Jan 15

ขอบคุณครับ
จริงๆมันเป็นแค่ user interface เล็กๆหนะครับ
ไม่อยากเขียนโค๊ตโดยเฉพาะอ่ะครับ
ถ้าไม่มีวิธีง่ายๆ คงต้องปล่อยไป