Bubba

on local error resume next ' ignore error messages
newdate=datevalue(inputbox("Enter a date")) ' store new date in NewDate
if err then msgbox "Invalid date format"' is error: display it
on error goto 0' disable error trapping

Good luck, Jacco.

P.s. There is alsoo a timevalue=function !

'----------------------------------------------------
' Description:
'   Convert a given string into a valid date.
'
' Inputs:
'   SourceText = string to be converted to a date
'
' Returns:
'   TextToDate = date value of the string
'----------------------------------------------------
Public Function TextToDate( _
    ByVal SourceText As String) As String

    If IsDate(SourceText) Then
        TextToDate = DateValue(SourceText)
    Else
        TextToDate = vbNullString
    End If
End Function

'----------------------------------------------------
' Description:
'   Convert a given string into a valid time.
'
' Inputs:
'   SourceText = string to be converted to a time
'
' Returns:
'   TextToTime = Time value of the string
'----------------------------------------------------
Public Function TextToTime( _
    ByVal SourceText As String) As String

    If IsDate(SourceText) Then
        TextToTime = TimeValue(SourceText)
    Else
        TextToTime = vbNullString
    End If
End Function

--
John Tabor

http://members.bellatlantic.net/~jftabor
___________