VB - Shorter code?

[mike2]

OK im sure that this is can get shorter :

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

Any ideas?