Using imput box

I need some help with a change in this string of code:


wbNam = "OKM-"
dt = Format(CStr(Now), "yyy_mm_dd_hh_mm")
ActiveWorkbook.SaveAs Filename:= wbNam & dt


Rather than placing now () date after the name OKM

I want to place a date of my choice. Formatted as mmmm-yyyyy

Can this be accomplished with a Imput box?

Also the Date can be text not formatted date eg. July 2015