Boucle while et exclusion

Bonjour,

Veuillez m'excuser si je ne suis pas un crack mais je débute tout juste et je me suis mis à programmer un petit jeu de carte. J'ai un petit souci au niveau de l'exclusion des cartes qui sortent. Pour que ce soit plus clair, j'aimerais qu'il tire des cartes tant que le couple de valeur (hauteur et couleur de la carte tirée) est équivalent à un couple de valeur déjà tiré.
Pour cela j'ai donc créé 2 valeur par carte et ça ressemble à ca (avec a,b,f,g cartes déjà tirées; d,h pour la carte à ce tour ci; c pour l'incrémentation) :

Randomize()
If c = 2 Then
d = CInt(Rnd() * 12) + 1
h = CInt(Rnd() * 3) + 1
If ((((d = a) = True) And ((h = b) = True)) = True) Or ((((d = f) = True) And ((h = g) = True)) = True) Then
Do While ((((d = a) = True) And ((h = b) = True)) = True) Or ((((d = f) = True) And ((h = g) = True)) = True)
If ((((d = a) = True) And ((h = b) = True)) = True) Or ((((d = f) = True) And ((h = g) = True)) = True) Then
Randomize()
d = CInt(Rnd() * 12) + 1
h = CInt(Rnd() * 3) + 1
End If
Loop
End If
Label9.Text = d
If h = 1 Then
Label10.Text = "coeur"
End If
If h = 2 Then
Label10.Text = "trefle"
End If
If h = 3 Then
Label10.Text = "pique"
End If
If h = 4 Then
Label10.Text = "carreau"
End If
End If

Merci d'avance et encore désolé de faire si compliqué lol.