try it
MyInput = Application.InputBox(Msg, Title, Type:=1)