Help to Modify the code to spell Numbers to words

Hi everyone,
i need your help please,
i searched and i got the below code and i changed the Currency and it is working well but it only Spell 2 digits decimal after dot. will you please help me to change it to spell 3 digit decimal like: "100.755" to "One Hundred Dinar and Seven Hundred Fifty Five Fils." appreciate your help.

Option Explicit

'Main Function
Function USD(ByVal MyNumber)
   Dim Dinars, Fils, Temp
   Dim DecimalPlace, Count
   ReDim Place(9) As String
   Place(2) = " Thousand "
   Place(3) = " Million "
   Place(4) = " Billion "
   Place(5) = " Trillion "
   ' String representation of amount.
   MyNumber = Trim(Str(MyNumber))
   ' Position of decimal place 0 if none.
   DecimalPlace = InStr(MyNumber, ".")
   ' Convert Fils and set MyNumber to Dinar amount.
   If DecimalPlace > 0 Then
      Fils = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
      "00", 2))
      MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
   End If
   Count = 1
   Do While MyNumber <> ""
      Temp = GetHundreds(Right(MyNumber, 3))
      If Temp <> "" Then Dinars = Temp & Place(Count) & Dinars
      If Len(MyNumber) > 3 Then
         MyNumber = Left(MyNumber, Len(MyNumber) - 3)
      Else
         MyNumber = ""
      End If
      Count = Count + 1
   Loop
   Select Case Dinars
      Case ""
         Dinars = "No Dinars"
      Case "One"
         Dinars = "One Dinar"
      Case Else
         Dinars = Dinars & " Dinars"
   End Select
      Select Case Fils
      Case ""
         Fils = " and No Fils"
      Case "One"
         Fils = " and One Fils"
      Case Else
         Fils = " and " & Fils & " Fils"
   End Select
   USD = Dinars & Fils
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
   Dim Result As String
   If Val(MyNumber) = 0 Then Exit Function
   MyNumber = Right("000" & MyNumber, 3)
   ' Convert the hundreds place.
   If Mid(MyNumber, 1, 1) <> "0" Then
      Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
   End If
   ' Convert the tens and ones place.
   If Mid(MyNumber, 2, 1) <> "0" Then
      Result = Result & GetTens(Mid(MyNumber, 2))
   Else
      Result = Result & GetDigit(Mid(MyNumber, 3))
   End If
   GetHundreds = Result
End Function

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
   Dim Result As String
   Result = "" ' Null out the temporary function value.
   If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
      Select Case Val(TensText)
         Case 10: Result = "Ten"
         Case 11: Result = "Eleven"
         Case 12: Result = "Twelve"
         Case 13: Result = "Thirteen"
         Case 14: Result = "Fourteen"
         Case 15: Result = "Fifteen"
         Case 16: Result = "Sixteen"
         Case 17: Result = "Seventeen"
         Case 18: Result = "Eighteen"
         Case 19: Result = "Nineteen"
         Case Else
      End Select
   Else ' If value between 20-99...
      Select Case Val(Left(TensText, 1))
         Case 2: Result = "Twenty "
         Case 3: Result = "Thirty "
         Case 4: Result = "Forty "
         Case 5: Result = "Fifty "
         Case 6: Result = "Sixty "
         Case 7: Result = "Seventy "
         Case 8: Result = "Eighty "
         Case 9: Result = "Ninety "
         Case Else
      End Select
      Result = Result & GetDigit _
      (Right(TensText, 1)) ' Retrieve ones place.
   End If
   GetTens = Result
End Function

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
   Select Case Val(Digit)
      Case 1: GetDigit = "One"
      Case 2: GetDigit = "Two"
      Case 3: GetDigit = "Three"
      Case 4: GetDigit = "Four"
      Case 5: GetDigit = "Five"
      Case 6: GetDigit = "Six"
      Case 7: GetDigit = "Seven"
      Case 8: GetDigit = "Eight"
      Case 9: GetDigit = "Nine"
      Case Else: GetDigit = ""
   End Select
End Function

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. The code is also very difficult to read, I have added indentation to make it more readable. --6StringJazzer