How to make a loop for specific problem

I currently have a program that takes values from excel and puts them in an array. Now, I want to build in some default commands. For instance, if the user enters text into a cell that is suppose to be a real number, the program would enter a default value into the cell such as zero.

The syntax isn't correct, but here is the loop that I was thinking.
(note: I do know the size of the array. It is 5)

Dim ParamArray Arg() As Variant
Dim i As Integer

Loop Until i < 6

If Arg(i) (is not equal. what is the symbol for this?) /= Double Then

Arg(i) = 0

End If

End Loop


Any ideas. Thanks.

Best,

Kevin

 

Try IsNumeric()

Conan Witzel

 

why don't you test to see if it's a real number ie. No decimal, not negative.

if instr(1, arg(i), ".") <>0 then
xxxxxxxxxxx
elseif instr(1,arg(i),"-")<>0 then
xxxxxxxxxxx
end if

 

Thank you. Both ideas really helped.

Best,

Kevin