Public Function ValorEmExtenso(AbrevMoeda As String, NomeMoeda As String, NumCasasDecimais As Integer, valorTotal As Double, language As String) As String

  Dim result As String = ""

  result = Eticadata.Rdls.Extenso.GetTextNumber(AbrevMoeda, NomeMoeda, NumCasasDecimais, valorTotal, language)

  Return result
End Function