Hola haber si alguien me puede ayudar con un codigo simple para un projecto que tengo para un juego de golf..
La idea es:




Que cuando ponga una cantidad en el TEXTBOX y le de a CALCULAR esta cambie yo lo hecho de una manera pero al coincidir cifras me daba numeros erroneos tiene que ser facil pero la verdad pero no se como hacerlo.

ejemplo:
10 en TEXTBOX al pinchar calcular de 12 en TEXTBOX
11 en TEXTBOX al pinchar calcular de 16 en TEXTBOX
12 en TEXTBOX al pinchar calcular de 18 en TEXTBOX
y asi seguidamente....................


Lo intente hacer asi pero al coincidir numeros me salian resultados que no queria.

Private Sub Image1_Click()

If Text1.Text = "10" Then
Text1.Text = "12"
End If
If Text1.Text = "11" Then
Text1.Text = "13"
End If
If Text1.Text = "12" Then
Text1.Text = "15"
End If
If Text1.Text = "13" Then
Text1.Text = "18"
End If


End Sub


Se que es algo facil seguro si alguien me quiere ayudar bienvenido es, desde ya muchas gracias.

-Saludos-

Soluciona lo hice con 2 TEXTBOX asi soluciono el problema de coincidencia de numeros....

-Saludos-

Tendria que ver mas el codigo pero por lo pronto creo que esto funciona

el CDbl es para transformar el contenido del Text en integer

Sld