El problema es que la función array te devuelve un tipo Variant
y por ello se dan tus errores
https://docs.microsoft.com/es-es/office/vba/language/reference/user-interface-help/array-function
si lo que quieres es cargar una matriz con el tipo integer te sugiero que lo carges los datos 1 a 1
Public Function DiasMes(Mes As Integer) As Integer
Dim Dias(11) As Integer
Dias(0) = 31 'Enero
Dias(1) = 28 'Febrero
Dias(2) = 31 'Marzo
Dias(3) = 30 'Abril
Dias(4) = 31 'Mayo
Dias(5) = 30 'Junio
Dias(6) = 31 'Julio
Dias(7) = 31 'Agosto
Dias(8) = 30 'Septiembre
Dias(9) = 31 'Octubre
Dias(10) = 30 'Noviembre
Dias(11) = 31 'Diciembre
DiasMes = Dias(Mes - 1)
End Function
o te ayudes por medio de un ciclo for
como tambien podrias unasusar la funcion split
que te quedaria mas o menos asi
Public Function DiasMes(Mes As Integer) As String
Dim Dias() As String
Dias = Split("31,28,31,30,31,30,31,31,30,31,30,31", ",")
DiasMes = Dias(Mes - 1)
End Function
y podrias convertir el resultado a integer
CInt(DiasMes(5))
Pero segun entiendo lo que quieres lograr es obtener el numero de dias que tiene x mes, podrias simplemente usar
Public Function DiasMes(Fecha As String) As Integer
DiasMes = Day(DateSerial(Year(Fecha), Month(Fecha) + 1, 1) - 1)
End Function