Macro convertir número a letras en Word

Hola, encontré esta macro que funciona muy bien en word, pero el texto lo escribe en femenino. ¿Cómo se modifica para que escriba el texto en masculino?
Esta es la macro
Declare Sub Recibo Lib "dlltcast.dll" (cifra As Long, ByVal _
Texto As String)
Sub letras()
Dim minumero As Long
Dim texto As String
Dim cadena As String
Dim pos As Integer
Dim cifra As Long
'Recojo el número que quiero convertir a letras
minumero = InputBox("Mi número")
texto = String(255, 65)
cifra = CLng(minumero)
'Llamo a la función Recibo incluida en la DLL
Call Recibo(cifra, texto)
'Depuro el resultado para sólo obtener la cadena de
'conversión
pos = InStr(texto, "A")
cadena = Left(texto, pos - 2)
'Muestro por pantalla
Selection.TypeText Text:=cadena
End Sub
Espero me puedas ayudar. Muchas Gracias