Dopo aver visto come ricavare se un anno è bisestile o no in SQL Server, vediamo come fare la stessa operazione con Visual Basic 6.
Eseguendo lo stesso calcolo la nostra funzione diventa:

Function IsLeapYear(ByVal yr As Integer) As Boolean
   IsLeapYear = (Day(DateAdd("d", -1, "1/3/" & yr)) = 29)
End Function

Altra possibilità è quella di eseguire un calcolo più dettagliato sull'anno in questo modo:

Private Function IsLeapYear(ByVal yr As Integer) As Boolean
  'Controlla se l'anno digitato è bisestile.
  If ((yr Mod 4) = 0) Then
      IsLeapYear = ((yr Mod 100) > 0) Or ((yr Mod 400) = 0)
  End If
End Function