Variable doesn't work based on type

I have a problem with the variable NewNum
NewNum is a number

with
Dim NewNum As VARIANT the MsgBox returns Zero for the count
but the StrPtr(NewNum) & Len(NewNum) work correctly

with
Dim NewNum As LONG the MsgBox returns the count correctly
but the StrPtr(NewNum) & Len(NewNum) fail

with
eliminating the defining of the variable
MsgBox returns Zero for the count then pops up two more messages boxes containing the number 4 (there are 4 blank cells in my data - coincidence?)
again, the StrPtr(NewNum) & Len(NewNum) work correctly

Please Login or Register  to view this content.

Try this

Please Login or Register  to view this content.

Roy,
What I'm eventually doing is deleting all the lines that don't contain the NewNum in Column A.

So I've attached a sample spreadsheet with all my code in one module & yours in another.
The NewNum is 9999

My code works fine unless they fail to put an entry into the input box.
Your code still doesn't recognize the input number and count them up.

& Thanks for the tip on using rcell not cell

MrShorty,
I see what you mean about the InputBox returning a string, however the solution containing "type conversion functions" is beyond me.