Overflow erro 6

[celso joaquim]

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

[Frank K Hosaka]

Eu não consegui chamar uma caixa de texto como Text8(0). Como você conseguiu?

[celso joaquim]

Foi um acidente. Não sei como.

E não consegui modificar.