Sure. Here's an example of some steps, but your situation may have to adapt these accordingly.
My regional DATE setting is DD-MMM-YYYY
Dim dtConstant as string
dtConstant ="-Jul-01"
then when you enter a date, lets call it YourYear which is dimmed as text.
consider YourYear ="2017"
then FinalDate = Cdate( yourYear & dtconstant ) and FinalDate will be a Date/time data type
sample
Code:
Sub consyear()
Dim dtconstant As String: dtconstant = "-Jul-01"
Dim YourYear As String: YourYear = "2017"
Dim FinalDate As Date
FinalDate = CDate(YourYear & dtconstant)
Debug.Print FinalDate
End Sub
Immediate window
01-Jul-2017
Locals window
: FinalDate : #01-Jul-2017# : Date
Good luck.