Visual Basic - El de arriba no vale y no se porque...

Hola, unos de los ejercicios de clase que me han mandado es un juego que trata de que si al darle al boton que crea dos numeros aleatorios en el cuadro de texto, si sale en alguno de los un 7 ganas pero el problema viene en que el de abajo cuando sale un 7 me dice que gana pero el de arriba le da igual que salga cualquier numero de los 10 primeros nunca dice nada os dejo el codigo a ver si alguien puede ayudarme gracias ;)

Option Explicit

Private Sub cmdjugar_Click()
txtnum1.Text = Int(Rnd * 10)
txtnum2.Text = Int(Rnd * 10)

If txtnum1.Text = "7" Then
txtganaste.Text = "GANASTE"
Else
txtganaste.Text = Empty

End If

If txtnum2.Text = "7" Then
txtganaste.Text = "GANASTE"
Else
txtganaste.Text = Empty

End If

End Sub

Private Sub cmdsalir_click()
End
End Sub

Naturalmente, el último que evaluas es el que se lleva el gato al agua, ocurra lo que ocurra siempre txtganaste tendra lo que resulte de la segunda evaluacion.

if text1="7" or text2="7" then
textganaste="GANASTES"
else
textgnastes=""
endif

Eternamente agredecido jejeje j