Module Module1
    Sub main()

        Dim user1 = Console.ReadLine()
        Dim result As String = "No"

        If user1(2) = user1(3) And user1(4) = user1(5) Then
            result = "Yes"
        End If

        Console.WriteLine(result)

    End Sub
end module