VB : Birthday Remainder / Pengingat Hari Ultah

Private Sub Command1_Click()
Dim a
Dim b
b = Year(Date)
Text3 = Format(Text1, "dd/mm/yyyy")
Text4 = Text3 & b
a = DateDiff("D", Date, Text4)
Text2 = a
If Val(Text2) < 0 Then
Label1 = "Belated Happy birthday"
Else
Label1 = "Your birthday comes after " & Text2 & " Days from Today"
End If
End Sub

Private Sub Form_Load()
Text3.MaxLength = 6
End Sub