If IsNumeric(Duration) Then
EndDte.txt = Format(Date + clng(Duration),"dd-mmm-yy")
End If

--
Regards,
Tom Ogilvy


Mike NG wrote in message
...
I have two fields on a UserForm, Duration and EndDte so that a default
is provided in the end date field

If IsNumeric(Duration) Then
EndDte = Date + Duration
End If

How do I format the EndDte as say 24-Sep-03, given that EndDte is
effectively a String
--
Mike