scusate ora ho risolto: la variabile "maxGgMese(mese)" non la riconosce bene nella diseguaglianza quindi ho sistemato così:

temp = maxGgMese(mese)
If (giorno > temp) Then
giorno = 1
mese = mese + 1
End If

e funziona scusate ancora per la discussione