copy code ข้างล่างนี้ไว้ใน module ใดๆ

Function ThaiDigit(Value As Double) As String
Dim objXcel As Object
Set objXcel = CreateObject("Excel.Application")
ThaiDigit = objXcel.WorksheetFunction.ThaiDigit(Value)
Set objXcel = Nothing
End Function

เวลาเรียกใช้ ใน form ให้กำหนดค่า Control Source เป็นการ run function
ตามด้วย value ที่ต้องการ เช่น
textfield.control source =ThaiDigit(123.45)

ขอบพระคุณครับขอลองดูซัก2วัน แล้วจะรายงานผลให้ทราบครับ

<แนะนำเพิ่มเติม/>
1.) สังเกตบรรทัด

Function ThaiDigit(Value As Double) As String

เป็นการกำหนดชื่อ function (ในที่นี้ชื่อ ThaiDigit) เพื่อสำหรับการเรียกใช้,กำหนด control source = ชื่อfunction(ตามด้วยValue)
---/
2.) สังเกตบรรทัด

ThaiDigit = objXcel.WorksheetFunction.ThaiDigit(Value)

เป็นการเรียกคุณสมบัติ Funtion ต่างๆ จาก Excel มาใช้ใน Code
นั่นคือ WorkSheetFunctin.ThaiDigit(Value)

ซึ่ง เราสามารถใช้ Funtion อื่นๆ ของ Excel ได้จากการเขียนคล้ายกัน เช่น
BahtText = objXcel.WorksheetFunction.BahtText(Value)
เป็นคำสั่งเรียกการเปลี่ยนตัวเลขเป็นตัวหนังสือไทย
เป็นต้น

ที่สุดเลยครับ..คุณ JZ