problemas al dividir

[::: Devil :::]

ahora otro problemita que me a surgido tengo esto

Private Sub Text43_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Text45.Text = Val(Text3.Text) + Val(Text7.Text) + Val(Text11.Text) + Val(Text15.Text) + Val(Text19.Text) + Val(Text23.Text) + Val(Text27.Text) + Val(Text31.Text) + Val(Text35.Text) + Val(Text39.Text) + Val(Text43.Text)
End If
End Sub

ahora quiero que el resultado de esa suma se divida entre el numero que yo coloco en un textbox aparte

el textbox que meto el numero para dividir es el text58

[Novlucker]

Código (vb) [Seleccionar] Expandir

resultado = val(Text45.text)/val(Text58.text)
Cual sería la pregunta?

[::: Devil :::]

el problema radica en que el resultado de toda la suma se encuentra en el textbox 45

y cuando hago esto

Text45.Text = Val(Text45.Text) / Val(Text58.Text)

me sale que el resultado es 0

y no es asi

[::: Devil :::]

ya lo resolvi

Private Sub Text43_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Text45.Text = Val(Text3.Text) + Val(Text7.Text) + Val(Text11.Text) + Val(Text15.Text) + Val(Text19.Text) + Val(Text23.Text) + Val(Text27.Text) + Val(Text31.Text) + Val(Text35.Text) + Val(Text39.Text) + Val(Text43.Text)
Text45.Text = Val(Text45.Text) / Val(Text58)
End If
End Sub

[viviz02]

Y no es eso lo que te habian dicho en el post de antes