Sub Main Dim X As Variant X = 1 Debug.Print IsNumeric(X) 'True X = "1" Debug.Print IsNumeric(X) 'True X = "A" Debug.Print IsNumeric(X) 'FalseEnd Sub