Formula for conveting numerical value into wo

PLEASE TELL ME THE WAY TO CONVERT NUMERIC VALUES INTO WORDS IN MS ACCESS

Private Function NumericToWords(ByVal myNum As String) As String
Dim units As String = ""
Dim numericToWordsOutPut As String = ""

Dim myNumArray(myNum.Length \ numGroup) As String
Dim index As Int16 = -1
For Count As Int16 = 0 To myNum.Length - numGroup Step numGroup
index += 1
myNumArray(index) = myNum.Substring(Count, numGroup)
Next

For Count As Int16 = 0 To (myNum.Length \ 3) - 1
units = thousendNum(((myNum.Length \ numGroup) - 1) - Count + 1)
numericToWordsOutPut &= CheckUnitOutput(myNumArray(Count)).TrimEnd(" ") & " " & units & " "
Next
myNumArray = Nothing
Return numericToWordsOutPut

End Function