Dim f1 As Boolean, f2 As Boolean

        Dim count1, count2 As Integer

        Debug.WriteLine("初期値　 … " & f1.ToString & ":" & f2.ToString)



        '[変更] 

        f1 = True

        f2 = True

        Debug.WriteLine("[変更]　 … " & f1.ToString & ":" & f2.ToString)



        Do         '＜f1 、 f2 = true＞★[変更]のコードがないと間違い 

            f1 = False  '＜f1 = False、f2 = true＞★[変更]のコードがないと間違い 

            Debug.WriteLine("Loop１前 … " & f1.ToString & ":" & f2.ToString)



            Do

                f2 = False  '＜f1 = False、f2 = false＞ 

                Debug.WriteLine("Loop２前 … " & f1.ToString & ":" & f2.ToString)



                If count2 < 4 Then ' 進行方向の左右が壁 

                    f2 = True

                End If

                Debug.WriteLine("Loop２後 … " & f1.ToString & ":" & f2.ToString)



                count2 += 1

            Loop While f2   '＜f2 = trueの間は、ループ＞ 

            Debug.WriteLine("Loop１後 … " & f1.ToString & ":" & f2.ToString)



            count1 += 1

        Loop While f1    '＜f1 = trueの間は、ループ？＞ 



        Debug.WriteLine("終了値　 … " & f1.ToString & ":" & f2.ToString)