Sub check_if_over_50_is_more_than_5()
    '50点を超える値が5件以上あるかどうかを調べ、該当する場合は「合格」とする
    Dim i
    Dim kensu
    For i = 2 To 11
        If Range("B" & i).Value > 50 Then
            kensu = kensu + 1
            If kensu > 5 Then
                Range("D2").Value = "合格" '即座に処理
                Exit For 'Exit For は、即座にくりかえし作業を終了する。発展編1参照。
            End If
        End If
    Next
End Sub

Sub check_if_over_50_is_more_than_5_flag()
    '50点を超える値が5件以上あるかどうかを調べ、該当する場合は「合格」とする
    'フラグを使った場合
    Dim i
    Dim kensu
    Dim flag
    flag = False '[1]
    For i = 2 To 11
        If Range("B" & i).Value > 50 Then
            kensu = kensu + 1
            If kensu > 5 Then
                flag = True 'フラグをつけるだけ
                Exit For
            End If
        End If
    Next
    
    '以下で、フラグを元に処理を行うか判定
    If flag = True Then '[2]
        Range("D2").Value = "合格"
    End If
End Sub

'[1] これはなくてもOKですが(詳しくは発展編1の第1章「変数の初期値」を参照)
'[2] If flag Then でも OK(詳しくは発展編2第1章「式と戻り値」を参照)