Convert values to a number using excel vba if statement

I have a column in excel that has two values "Disqualified" and "Open".

I want to use an If Statement using VBA to change the disqualified values to 0 and the Open values to 1.

Here is the excel formula that shows what I want to do

=IF(H:H="Disqualified","0","1")

I think I need a for loop to loop through all the values in column H but can't seem to get this to work. Thanks