duda con calculo

[::: Devil :::]

tengo otra preguntica que estoy bien dudoso y no me entra en la cabeza como hacerlo 

tengo un text1 en el cual meto un numero x que esta comprendido entre el 1 y el 100 entonces yo quiero que cuando metan supongamos el numero 37 en el text2 me quede lo que faltaria para llegar a 100 que seria 63

[Novlucker]

Te recomiendo leer algún tutorial básico de vb, así se te hará más fácil seguir con esto 

Código (vb) [Seleccionar] Expandir

Private Sub TextBox1_Change()

TextBox2.Text = 100 - Val(TextBox1.Text)

End Sub

Saludos

[& eDu &]

Código (vb) [Seleccionar] Expandir

Function SacaR(num1 As String, num2 As String)
Dim total As String
If num1 >= num2 Then
SacaR = num1 / num2
total = 100 - SacaR
MsgBox total
ElseIf num2 >= num1 Then

SacaR = num2 / num1
total = 100 - SacaR
MsgBox total
End If
End Function

Te sirve?
Me ABURRÍA y me comí la cabeza x'dd

[::: Devil :::]

ninguno de los dos me sirvio no se por que

[::: Devil :::]

gracias brother ya lo realize con este

Private Sub TextBox1_Change()

TextBox2.Text = 100 - Val(TextBox1.Text)

End Sub

jejejeje no es leer el manual si no que tenia 1 año y algo sin programar pero no quiero seguir leyendo ahorita jejeje

[BlackZeroX]

Yo en lo personal te recomiendo que te lees el libro o manual ¬¬"

[::: Devil :::]

los post innecesario o para decir lo mismo creo que no tienen nada que ver aqui no postees para decir lo que esta diciendo otro user por favor 

TextBox2.Text = 100 - Val(TextBox1.Text)

if textbox1.text= 0 then
textbox2.text= 0
end if

con este pedaso de codigo yo estaria diciendo que si en el textbox1 no hay resultado o esta en 0 me quedaria 0 en el textbox 2 verdad?

[::: Devil :::]

ya esta listo lo hice asi

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.Text = 100 - Val(Text3.Text)
SendKeys "{tab}"
End If
If Text3.Text = 0 Then
Text4.Text = 0
End If
End Sub

con el else no me queria dar el resultado cerre el ciclo y abri uno y si me lo dio

[::: Devil :::]

o.k ya resolvi ese problema y si cuando los campos llegasen a quedar en blanco y no coloquen 0 por que no tiene como quedaria

if text3.text = 0 then
text4.text = 0
end if
if text3.text = "" then
text4.text=0
end if

seria algo asi o mas o menos como

[& eDu &]

Es bueno que te leas un libro, además creo que no esta permitido escribir 3 mismos posts seguidos, ves editando.