VB Code:
If lstSeeds.ListCount < 16 Then
MsgBox "Not Enough Seeds", vbOKOnly, "Not Enough Seeds"
Else
If lstSeeds.ListCount > 16 Then
MsgBox "Too Many Seeds", vbOKOnly, "Too Many Seeds"
Else
If lstSeeds.ListCount = 16 Then
If lstLadder.ListCount > 8 Then
MsgBox "Too Many Ladder Rankings", vbOKOnly, "Too Many Ladder Rankings"
Else
If lstLadder.ListCount < 8 Then
MsgBox "Not Enough Ladder Rankings", vbOKOnly, "Not Enough Ladder Rankings"
Else
If lstLadder.ListCount = 8 Then
If lstWildcards.ListCount < 8 Then
MsgBox "Not Enough Wildcards", vbOKOnly, "Not Enough Wildcards"
Else
If lstWildcards.ListCount > 8 Then
MsgBox "Too Many Wildcards", vbOKOnly, "Too Many Wildcards"
Else
If lstWildcards.ListCount = 8 Then
frmBracket.Show
End If
End If
End If
End If
End If
End If
End If
End If
End If