>>600
b = Val("&H" & Cells(1, 1).Text)