'checking if a year is a leap-year

'make a new project
'add a form
'add a texbox and a commandbutton
'insert the code
'press F5


Option Explicit

Private 
sub
 Command1_Click()

    
dim
 strDatum 
as
 String

    If Text1.Text = "" Then 
exit
 Sub
    strDatum = ("29-2-" + Text1.Text)
    If IsDate(strDatum) Then MsgBox Text1.Text + " is a leap-year." _
        Else MsgBox Text1.Text + " isn't a leap-year."
    
End Sub

Private 
sub
 Form_Load()

    Text1.Text = Year(Now)
    
End Sub