So I have here a sub, that is called to check values in my program. It works as it is, but it is a very long line of code. I know there must be a way to simplify this. As long as it uses fewer than 10 lines (even though this is 3 lines, split up. Same thing in reference). Any thoughts suggestions?

Code:
        If (btnArry(1) = btnArry(2) And btnArry(2) = btnArry(3) And Not btnArry(1) = Nothing) Or _
        (btnArry(4) = btnArry(5) And btnArry(5) = btnArry(6) And Not btnArry(4) = Nothing) Or _
        (btnArry(7) = btnArry(8) And btnArry(8) = btnArry(9) And Not btnArry(7) = Nothing) Or _
		 _
        (btnArry(1) = btnArry(5) And btnArry(5) = btnArry(9) And Not btnArry(1) = Nothing) Or _
        (btnArry(3) = btnArry(5) And btnArry(5) = btnArry(7) And Not btnArry(3) = Nothing) Or _
        (btnArry(1) = btnArry(4) And btnArry(4) = btnArry(7) And Not btnArry(1) = Nothing) Or _
		 _
        (btnArry(2) = btnArry(5) And btnArry(5) = btnArry(8) And Not btnArry(2) = Nothing) Or _
        (btnArry(3) = btnArry(6) And btnArry(6) = btnArry(9) And Not btnArry(3) = Nothing) Then
            addscore()
        End If
This has cut down code duplication a LOT so far. My only question is if I can reduce the code so I don't need so many 'OR's and, If possible, still only call 'addscore()' once.

~Stud