VB Error in CLng

Hi
I am sorry, that I couldn't put a proper Title for the blog.
Please find the attached file.
The objective is to generate a list from the Sheet (Database) where the Balance (Cell P) is less than zero. The VB is working perfect, but there is a small bug which I couldn't solve it. Let me explain the problem.

The Problem is with Field "Telephone" - (CELL - I)
I am having error in the following conditions.

If Field "Telephone" (CELL I) in the 1st record of the database is BLANK or if it is a TEXT then I am getting an error.

If any other record is having a text (NOT NUMERICAL) in that field also getting the same error

It will work even if it is BLANK in all record except the 1st record.

My data is having Alpha/numeric in Telephone field.
Hope someone can help me.
Thanks
Toms

hi, SMILE, please check attachment, run code "test"

Change this:

Please Login or Register  to view this content.

to this:

Please Login or Register  to view this content.

And this:

Please Login or Register  to view this content.

to this:

Please Login or Register  to view this content.

Regards

Thank you guys!!!
Perfect solution...