Função VB.Net para verificar se o ano é Bissexto

Public Function AnoEBissexto(Ano As Integer) As Boolean
    If Ano Mod 4 = 0 Then
        If Ano Mod 100 = 0 Then
            If Ano Mod 400 = 0 Then
                Return True
            Else
                Return False
            End If
       Else
          Return True
       End If
    Else
        Return False
    End If
End Function