Hello all, i have an input box(code below) and i have 3 entries, is
there a way that i can check that each entry made in the input box is in
actual fact in the date format 26/07/07 ??

Private Sub Workbook_Open()
'
Dim strDates As String, s As Variant

strDates = Application.InputBox("Enter the ""from"" ""to"" dates and
the" & vbCrLf & _
"date paid, each date seperated by a
"",""..", "SALARY PERIOD")
If strDates = False Then
End
Else
s = Split(strDates, ",")
Range("B11").Value = s(0)
Range("D11").Value = s(1)
Range("B21").Value = s(2)
PrintSlip
End If

End Sub


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***