Como Convertir Precio A Letras En Access Cuando Aparece S/1062 En Numero, Quiero Que Aparezca mil sesenta y dos 00/100 en letras

Como Convertir Precio A Letras En Access Cuando Aparece S/1062 En Letras Que Aparezca mil sesenta y dos 00/100 por favor lo necesito urgente tengo un código tal vez ay que modificarlo este es parte de mencionado código

Option Compare Database
Option Explicit
Function letra(Numero)
Dim texto
Dim Millones
Dim Miles
Dim Cientos
Dim decimales
Dim Cadena
Dim CadMillones
Dim CadMiles
Dim CadCientos
Dim caddecimales
texto = Round(Numero, 2)
texto = FormatNumber(texto, 2)
texto = Right(Space(14) & texto, 14)
Millones = Mid(texto, 1, 3)
Miles = Mid(texto, 5, 3)
Cientos = Mid(texto, 9, 3)
decimales = Mid(texto, 13, 2)
CadMillones = ConvierteCifra(Millones, False)
CadMiles = ConvierteCifra(Miles, False)
CadCientos = ConvierteCifra(Cientos, True)
caddecimales = ConvierteDecimal(decimales)

If Trim(CadMillones) > "" Then
If Trim(CadMillones) = "Un" Then
Cadena = CadMillones & " Millón"
Else
Cadena = CadMillones & " Millones"
End If
End If

If Trim(CadMiles) > "" Then
If Trim(CadMiles) = "Un" Then
CadMiles = ""
Cadena = Cadena & "" & CadMiles & "Mil"
CadMiles = "Un"
Else
Cadena = Cadena & " " & CadMiles & " Mil"
End If
End If
If Trim(CadMiles) > "001" Then
CadMiles = "Mil"
End If

If decimales = "00" Then
If Trim(CadMillones & CadMiles & CadCientos & caddecimales) = "Un" Then
Cadena = Cadena & "Uno "
Else
If Miles & Cientos = "000000" Then
Cadena = Cadena & " " & Trim(CadCientos)
Else
Cadena = Cadena & " " & Trim(CadCientos)
End If
letra = Trim(Cadena)
End If
Else
If Trim(CadMillones & CadMiles & CadCientos & caddecimales) = "Un" Then
Cadena = Cadena & "Uno " & "Con " & Trim(caddecimales)
Else
If Millones & Miles & Cientos & decimales = "000000" Then
Cadena = Cadena & " " & Trim(CadCientos) & " " & Trim(decimales) & "/100 Nuevos Soles"
'Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Trim(Decimales) & "/100 M.N."
Else
Cadena = Cadena & " " & Trim(CadCientos) & " " & Trim(decimales) & "/100 Nuevos Soles"
'Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Trim(Decimales) & "/100 M.N."
End If
letra = Trim(Cadena)
End If
End If

End Function