Sub CheckIfWin (Player As String) As Boolean
'Check columns
Dim found As Boolean
For x = 0 To 2
found = True
For y = 0 To 2
found = found AND Buttons(x, y).Text = Player
Next
If found = True Then Return True
Next
'Check rows
For y = 0 To 2
found = True
For x = 0 To 2
found = found AND Buttons(x, y).Text = Player
Next
If found = True Then Return True
Next
'Check diagonals
found = True
For i = 0 To 2
found = found AND Buttons(i, i).Text = Player
Next
If found = True Then Return True
found = True
For i = 0 To 2
found = found AND Buttons(i, 2 - i).Text = Player
Next
If found = True Then Return True
Return False
End Sub