Option Explicit
Private Sub cmdConvertDate_Click()
Dim inyear
Dim iyear
Dim txtdate
Dim vbcrlf
Dim a
vbcrlf = Chr(13) & Chr(10)
For inyear = 0 To 99
If inyear <= 9 Then
iyear = "0" + CStr(inyear)
Else
iyear = CStr(inyear)
End If
txtdate = iyear & "/01/01"
If IsDate(txtdate) Then
a = Year(txtdate)
Text1.Text = Text1.Text & "Date Entered: " & txtdate & _
" Year (VB Default): " & a & vbcrlf
End If
Next
End Sub