Condition and function to write number value greater than a specific number

Hi Friends,

I am new to VBA and need help regarding one condition.
How can I write to check if the value in a specific cell is more than 4000 or not and whether the value is a number or not.

This is what I have written write now.

#

Dim col1 As Long
col1 = 1
If InStr(1, Worksheets("Albany_MA").Cells(i, col1).Value, "4") Then

I understand what I have written checks for # 4 and not for a number greater than 4000. Please advice.

Thanks
Jay