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

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

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