You should get an array index out of bounds exception as the Dim statement should be
Dim CellTypeface(2) As Typeface
to hold two elements. Apart from that I've just tried it in debug and release modes and don't get an error.
Are you sure the error is on that line?