celso joaquim

Foi um acidente. Não sei como. E não consegui modificar.

Oi. Alguém pode me dizer como resolver o erro overflow na linha de comando abaixo indicada com >>>>>>: Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "Digite o diametro do moinho.", , MsgTexto Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "Digite o comprimento do moinho.", , MsgTexto Text2.SetFocus Exit Sub End If If Text8(0).Text = "" Then MsgBox "Digite o percentual de água.", , MsgTexto Text8(0).SetFocus Exit Sub End If If Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text8(0).Text = "" Or Text9.Text = "" Then MsgBox "Não deixe nenhum campo" & Chr(13) + Chr(10) & "das informações gerais vazio.", vbOKOnly, MsgTexto End If Text23.Text = Format(Pi * ((Val(Text1.Text) / 2) ^ 2) * Val(Text2.Text) * 1000, "###") Text6.Text = Format(Val(Text23.Text) * Val(Text3.Text) * Val(Text4.Text) * Femp / 100, "###") Text7.Text = Format(Val(Text23.Text) * Val(Text5.Text) / 100, "###") Text26.Text = Format(-Val(Text9.Text) / (((1 - Val(Text8(0).Text) / 100) * (Val(Text9.Text) - 1)) - Val(Text9.Text)) * 1000, "####") Text12.Text = Format(Val(Text7.Text) * Val(Text26.Text) / 1000, "####") >>>>>>> Text10.Text = Format((Val(Text7.Text) * Val(Text26.Text)) * Val(Text8(0).Text) / 100000, "###") Text27.Text = Format((100 - (Val(Text8(0).Text))) * 100, "") Text11.Text = Format(Val(Text7.Text) * Val(Text9.Text) * (Val(Text27.Text) / 10000), "####") Text18.Text = Format(Val(Text6.Text) * Val(Text13.Text) / 100, "###") & " Kg" Text19.Text = Format(Val(Text6.Text) * Val(Text14.Text) / 100, "###") & " Kg" Text20.Text = Format(Val(Text6.Text) * Val(Text15.Text) / 100, "###") & " Kg" Text21.Text = Format(Val(Text6.Text) * Val(Text16.Text) / 100, "###") & " Kg" Text22.Text = Format(Val(Text6.Text) * Val(Text17.Text) / 100, "###") & " Kg" Text24.Text = Format(42.3 * (Val(Text25.Text) / 100) / Sqr(Val(Text1.Text)), "###") Text1.SetFocus End Sub