Ayuda con juego

[kiwisucks]

ola a todos

bueno les cuento, toy tudiando tecnico en computacion e informatica y estoy en el ramo de programacion visual. la encontre reentretenida, me paso horas en un trabajo que me dieron, que e shacer un juego de cartas en dos modalidades, y estoy aproblemado con el codigo se podria decir, pondre una foto del juego para que les pueda explicar mejor de que se trata:

http://img518.imageshack.us/my.php?image=dibujovd4.jpg

el juego consiste en que la persona colo un valor asta 250 ( eso no lo he validado aun :S, me urge mas lo otro) , en donde ese valor tiene que aproximarse lo mas posible al de arriva que tiene como maximo 250 ( Carta = Val(Int(Rnd * 250) + 1)), luego ambos numeros se restan y la diferencia se le resta al puntaje global de abajo, la gracia es que al final la persona quede con el mayor puntaje posible.

el problema que se me suscito fue que en algunas jugadas el puntaje de abajo se me suma. por ej: despues de la primera jugada el puntaje global quedo en 860 y despues juego en la segunda y me puee aparecer 960, sumandome la 2º jugada.

Objetos

las cartas se llaman: txCarta1, txCarta2, txCarta3, txCarta4.
los texbox se llaman: txValor1, txValor2, txValor3, txValor4.

declaraciones:

Dim Carta As Integer
Dim Carta1 As Integer
Dim Carta2 As Integer
Dim Carta3 As Integer
Dim Puntaje As Integer
Dim Resultado As Integer

* al principio declare 1 sola ( carta) pero pense que si declaraba varias podria funcionar

codigo de btJugar1

Private Sub btJugar1_Click(Index As Integer)
Randomize
Carta = Val(Int(Rnd * 250) + 1)
txCarta1.Text = Carta
txCarta1.Visible = True
btJuego1.BackColor = &HFFC0C0
Resultado = Carta - txValor1.Text
If Resultado < 0 Then
Resultado = Resultado * -1
Puntaje = Puntaje - Resultado
lbScore.Caption = Puntaje
'lbScore.Caption = Puntaje - Resultado
Else
lbScore.Caption = Puntaje - Resultado

End If

txValor1.Enabled = False

End Sub


Codigo btJugar2

Private Sub btJugar2_Click(Index As Integer)
Randomize
Carta1 = Val(Int(Rnd * 250) + 1)
txCarta2.Text = Carta1
txCarta2.Visible = True
btJuego2.BackColor = &HFFC0C0
Resultado = Carta1 - txValor2.Text
If Resultado < 0 Then
Resultado = Resultado * -1
punntaje = Puntaje - Resultado
'lbScore.Caption = Puntaje - Resultado
lbScore.Caption = Puntaje
Else
lbScore.Caption = Puntaje - Resultado
End If
txValor2.Enabled = False

End Sub

Codigo btJugar3

Private Sub btJugar3_Click(Index As Integer)
Randomize
Carta2 = Val(Int(Rnd * 250) + 1)
txCarta3.Text = Carta2
txCarta3.Visible = True
btJuego3.BackColor = &HFFC0C0
Resultado = Carta2 - txValor3.Text
If Resultado < 0 Then
Resultado = Resultado * -1
Puntaje = Puntaje - Resultado
lbScore.Caption = Puntaje
'lbScore.Caption = Puntaje - Resultado
Else
lbScore.Caption = Puntaje - Resultado
End If
txValor3.Enabled = False

End Sub


Codigo btJugar4

Private Sub btJugar4_Click(Index As Integer)
Randomize
Carta3 = Val(Int(Rnd * 250) + 1)
txCarta4.Text = Carta3
txCarta4.Visible = True
btJuego4.BackColor = &HFFC0C0
Resultado = Carta3 - txValor4.Text
If Resultado < 0 Then
Resultado = Resultado * -1
Puntaje = Puntaje - Resultado
lbScore.Caption = Puntaje
'lbScore.Caption = Puntaje - Resultado
Else
lbScore.Caption = Puntaje - Resultado
End If
txValor4.Enabled = False

End Sub


esop serian, disculpen lo extenso, pero creo que si dejo todo detallado, sera mas facil que me puedan ayudar.
de antemano muchas gracias y disculpen lo malito del diseño, eske soy nuevo en esto de la programacion en general.

saludos