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 unas la funcion `split`

https://docs.microsoft.com/es-es/office/vba/language/reference/user-interface-help/split-function?f1url

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