Update Base.vb

Adjustments to the phase identification routine.