VBA Code for Percentage value to English Word

Replace the F_percent() function above with this :

Private Function F_percent(y As String)
  If Len(y) Then
     v = Split(y, ".")
     F_percent = Application.Proper(F_convert(CLng(v(0))))
     If UBound(v) = 1 Then
        v(1) = Left$(v(1), 2)
        If Left$(v(1), 1) = "0" Then F_percent = Application.Proper(F_percent & " point Zero " & F_convert(CLng(Right$(v(1), 1)))) Else F_percent = Application.Proper(F_percent & " point " & F_convert(CLng(v(1))))
     End If
     F_percent = F_percent & " Percent"
  End If
End Function

And don't forget to mark this thread as solved :
select Thread Tools from the menu link above and mark this thread as SOLVED.