Visual Basic - Año Bisiesto. Cómo lo calculo?¿

Me gustaría saber cómo calcular si un año es bisiesto o no.

Mediante estas funciones podras saberlo. Devuelve el nº de días que tiene un mes dada una fecha

Global vble_inst As String

Function Bisiesto(SELF As Integer) As Integer

Dim dias As Integer

If ((SELF Mod 4) <> 0) Then
dias = 28
Else
If ((SELF Mod 100) = 0) Then
If (((SELF / 100) Mod 4) = 0) Then
dias = 29
Else
dias = 28
End If
Else
dias = 29
End If
End If

Bisiesto = dias

End Function

Function Calcula_Dia(mes As Integer, año As Integer) As Integer
'Devuelve el ultimo día del mes

If mes = 1 Or mes = 3 Or mes = 5 Or mes = 7 Or mes = 8 _
Or mes = 10 Or mes = 12 Then
Calcula_Dia = 31
ElseIf mes = 2 Then
Calcula_Dia = Bisiesto(año)
Else
Calcula_Dia = 30
End If

End Function

El código que envías tiene un pequeño error:
Los años múltiplos de 4 son bisiestos salvo que sean multiplos de 100 en cuyo caso no lo son, es decir, 1900 no es bisiesto, además los multiplos de 100 no son bisiestos salvo que sean multiplos de 1000 en cuyo caso si son bisiestos, es decir, 2000 si es bisiesto.
No se como continua la regla, pero si es necesario hacer calculos con ese tipo de años es necesario utilizar esta información.

La anterior respuesta tenía un pequeño error lo correcto sería:
El código que envías tiene un pequeño error:
Los años múltiplos de 4 son bisiestos salvo que sean multiplos de 100 en cuyo caso no lo son, es decir, 1900 no es bisiesto, además los multiplos de 100 no son bisiestos salvo que sean multiplos de 400 en cuyo caso si son bisiestos, es decir, 2000 si es bisiesto.
No se como continua la regla, pero si es necesario hacer calculos con ese tipo de años es necesario utilizar esta información.