How to treat an empty user input box in if statement

[Raddle]

Hi

I have a sub that asks the user for the number of files they want.
However if user just hits ok the routine should exit gracefully.
Right now if they hit ok with nothing entered, the routine carries on and does not exit.

I know this is basic and I have looked it up and found tonnes on null / is nothing / = 0 etc but it would seem the code does not recognise the empty box as I need it to.

I have to got this right now

I = InputBox("Please enter the required amount", "Enter Amount")
Debug.Print I

If I is nothing Then

Exit Sub
Else
'rest of my routine

Any hints welcome

 

[Candyman8019]

Have you tried

if I = "" then

 

[Raddle]

Have you tried

if I = "" then

Hi =- thank you.

Yes I have and if the user hits space bar this exits as it should.

But more likely, they will just hit OK which does still continue.

Grrrr

I think the question is how to tell it, nothing is literally nothing ...

 

[Candyman8019]

How about
If Len(I) = 0 then

 

[Raddle]

So weirdly, if I change it to this, it will exit if I just hit ok but it also breaks it, for when I enter say 5.

I = InputBox("Please enter the required amount", "Enter Amount")
Debug.Print I

If I Is Nothing Then

Exit Sub
Else

 

[Raddle]

True candy that is ...

I = InputBox("Please enter the required amount", "Enter Amount")
Debug.Print I

If Len(I) = 0 Then

Exit Sub
Else


Thank you so much

 

[Candyman8019]

Happy to help

 

[Joe4]

Try this:

I = InputBox("Please enter the required amount", "Enter Amount")

If Len(Trim(I)) = 0 Then
    MsgBox "Nothing selected"
    Exit Sub
End If

This will treat a single space like a blank entry.