string variable as date

[RuthandAndy]

An operator will be entering a date into an excel form that is then dimensioned as a string. How do I format the variable to change it to a date?

 

[mikerickson]

The DateValue function will convert a string into a date, it takes a variety of formats.

3 Jan 2011
3 January 2011
3/1/2011
January 3, 2011
1-3-2001

code like this could be used

Dim strPrompt As String
Dim uiDateString As String, uiDate As Date
strPrompt = "Enter a date."

Do
    uiDateString = InputBox(strPrompt, Default:=uiDateString)

    If StrPtr(uiDateString) = 0 Then Exit Sub: Rem canceled

    strPrompt = "Bad date format" & vbCr & vbCr & "Please change it to mm/dd/yyyy"

Loop Until IsDate(uiDateString)

uiDate = DateValue(uiDateString)
MsgBox uiDate

 

[RuthandAndy]

Thanks for your help