Private Sub Command1_Click()
s = Val(Text1(0).Text) * Val(Text1(1).Text) + _
    Val(Text1(2).Text) * Val(Text1(3).Text) + _
    Val(Text1(4).Text) * Val(Text1(5).Text)
    MsgBox "总金额为:" + Trim(Str(s)), 0, "计算结果"
   
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
i = Index + 1
If i >= 6 Then i = 0
If KeyAscii = 13 Then
Text1 (i) .SetFocus
End If

End Sub
以上编程是哪里出错了，知道的麻烦告诉我一声，万分感激！

欺负我不懂英文。出个英文标题。

哪里哪里~~~你能看懂下面的程序就是了。

错误信息？