Haber... te explico algo que se me ha ocurrido, pero no se si  te sirve.

La idea es generar un número aleatorio a cada repartida de carta es decir, generamos un numero y hacemos un if

IF numero = "1" Then
mostramos tal carta
Elseif numero = "2" Then
mostramos tal carta
End IF

Bueno esa seria una idea...

Podrias utilizar Boolean mira este código

Dim num1 As Boolean
Dim num2 As Boolean
Dim num3 As Boolean
Dim num4 As Boolean
Dim num5 As Boolean
Dim num6 As Boolean
Dim num7 As Boolean
Private Sub Command1_Click()
Dim i As Byte
i = Rnd * "7"
If i = "1" Then
ElseIf num1 = True Then
MsgBox "La carta ya salió"
Else
'mostramos la primera carta y ponemos como que ya salio
num1 = True
y la mostramos
End If
End Sub

Una cosa asi

OK Si tienes algun problema postea.

mmmm la verdad q nunca lo hice... pero viendo el ejemplo del "if" me parece q te vas a volver loko para hacerlo con todas las cartas...
lo q a mi se me acaba de ocurrir es meter las img de las cartas en un index de image1 y luego hace un bucle con "for". primeros llamas a un numero random y luego con el for recorres el index... cuando el numero es igual al index q muestre esa carta.
luego para q no salgan dos cartas iguales puedes guardar las cartas q ya salieron en una variable y comparar el numero random de q no sea igual antes de ingresar al bucle

espero q se haya entendido...

SALUDOS