ฟังก์ชันเปลี่ยนเลขไทยเป็นอารบิด(มีตัวอักษรผสมตัวเลข)
Function Arabic2ThaiNum(strNum As String) As String
Dim I As Variant, J As Integer, strOut As String, K As Integer, X As Integer
For J = 1 To Len(strNum)
I = Mid(strNum, J, 1)
K = Asc(I)
If K >= 48 And K <= 57 Then
K = K + 240
strOut = strOut & Replace(I, I, Chr(Val(I) + 240))
Else
strOut = strOut & I
End If
Next J
Arabic2ThaiNum = strOut
End Function


Function Replace(ByVal Valuein As String, ByVal WhatToReplace As _
String, ByVal Replacevalue As String) As String
Dim temp As String, p As Long
temp = Valuein
p = InStr(temp, WhatToReplace)
Do While p > 0
temp = Left(temp, p - 1) & Replacevalue & _
Mid(temp, p + Len(WhatToReplace))
p = InStr(p + Len(Replacevalue), temp, WhatToReplace, 1)
Loop
Replace = temp
End Function


จะนำฟังก์ชันนี้ไปใช้ในรายงานได้อย่างไรครับ (ผมนี้โง่จริง ๆ โมโหตัวเองศึกษามาตั้งนานทำอะไรไม่ได้ซักอย่าง)