lol dumb question but why dosent this work

 Public Sub Set_Best()
        Dim B As Gene = Pop(0)
        For lp As Integer = 1 To Pop.GetUpperBound(0)
            If B.Fit < Pop(lp).Fit Then
                B = Pop(lp)
                B.Fit = Pop(lp).Fit
            End If

        Next
""""""""""""The problem is below best.fit keeps going down how is that possible when this is the only place in the code i use it. btw i know i shouldnt use letters it was just a quick throw together so dont be to harsh on me.
        If Best.Fit < B.Fit Then
            Best = B
            Best.Fit = B.Fit
        End If

    End Sub