Incapaz de declarar un Array en VBA (Excel 2002)

Estoy tratando de declarar un Array con la cantidad de días que tiene cada mes pero no hay manera, me da error.

Public Function DiasMes(Mes As Integer) As Integer   Dias(12) As Integer    Dias = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)  End Function 

También he probado

Dim Dias() as Integer = {1, 2, 3, 4} 

No funciona. Esta sintaxis no es correcta en VBA de Excel 2002? Olvidemos el hecho de comprobar los años bisiestos. De momento quiero asegurarme de que puedo declarar el array. He leído las guías diferentes sobre Arrays pero no acabo de entender algo o se me pasa alguna cosa.

Si no pongo el tamaño del array y dejo los parentesis vaciós tambíen da error. Me da error 13 “No coinciden los tipos”.