Lotus Notes - Problema con funcion

Hola a tod@s, tengo una funcion que coge un valor fecha de un campo y devuelve el nombre del mes:

Function meses2(fecha As notesdatetime) As String
Dim sdia As String
Dim mes As String
sdia=Cstr(Month(fecha))
Select Case sdia
Case "1"
mes="Enero"
Case "2"
mes="Febrero"
Case "3"
mes="Marzo"
Case "4"
mes="Abril"
Case "5"
mes="Mayo"
Case "6"
mes="Junio"
Case "7"
mes="Julio"
Case "8"
mes="Agosto"
Case "9"
mes="Septiembre"
Case "10"
mes="Octubre"
Case "11"
mes="Noviembre"
Case "12"
mes="Diciembre"
End Select
meses2=mes
End Function

La llamada a la funcion es la siguiente:

Dim fecha2 As notesdatetime
Set fecha2 = New NotesDateTime(oDocactual.FRAPfchcrcc(0))

officeApp.ActiveDocument.Bookmarks("m2").Select
officeApp.Selection.TypeText meses2(fecha2)

Cuando se ejecuta el debugger me da error el error "Type mismatch" en la linea sdia=Cstr(Month(fecha))
No entiendo que puede estar fallando. ¿Alguien me puede dar una indicacion?. Gracias, un saludo.

Utiliza solo str(Month(fecha)), para el valor te lo regrese como caracter.