Creo que es una especie de brute force.

OK Si tienes algun problema postea.

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

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...

Si fuera para utilizar pocos códigos si que se puede hacer... seria algo mas sencillito... pero si quieres hacer que acepte todos los códigos... bufff

Eso no tiene nada que ver con lo que el se refiere.

Una cosa asi como mucho...

Dim data() As String
data = Split(Text1.Text, "|")
MsgBox data(0), vbInformation, data(1)

Eso lo que hace es lo siguiente, si escriben "Hola | Muy bien" en el Campo de texto sin las comillas sale un mensaje con texto Hola y de titulo Muy Bien ¿Asi te serviria? Y despues puedes hacer,

Dim data() As String
data = Split(Text1.Text, "|")
If data(3) = "Informacion" Then
MsgBox data(0), vbInformation, data(1)
elseif data(3) = "Critical" Then
MsgBox data(0), vbCritical, data(1)
End IF

Ahi seria "Hola | Muy bien | Informacion" ¿Ahora entiendes?

Registrate en otro hosting, te recomiendo www.funpic.de

Eso es porque la propiedad Multiline del Textbox esta False, ponla en True

Lo mejor es utilizar el Inet, Proyecto>Componentes>Microsoft Internet Transfer Control

Una vez añadido con su nombre predeterminado haz lo siguiete.

Dim sContenido As String
Private Sub Form_Load()
sContenido = Inet1.OpenURL("Aquilawebconeltxt")
Text1.Text = sContenido
End Sub

Va ! Que lo del email estas utilizando la función que publiqué yo.
Estas utilizando hasta la misma variable GET