Using an InputBox where the default is a field

[AntMac]

What I would like to do is have the default of an input box be the value of one of my cells. If the cell is blank, then I would like the default value of the input box to be blank. If it's populated than it's value is the default value. It seems that I get an error message when I store the value of the cell as a variable and put that as the default value of the inputbox. Is there any way to do this other than to check for if the value is blank and do an if then statement with different default values?

 

[My Aswer Is This]

Here is a example:

Makes the default value in the InputBox the same as the value in Range("A1")

Sub My_Input()
Dim ans As String
ans = InputBox("Enter Value", "My Input Box", Range("A1").Value)
End Sub

 

[AntMac]

I thought so, so this must work in Excel but not an access form.

 

[AntMac]

Ok, this was a user error lol I had my then and else options flipflopped. I switched those and it worked as desired. Sorry about that. But thank you for helping me look deeper into it to find the problem.