Resultado Errado

[Manckenna 0]

O código abaixo está dando resultado errado mas não apresenta erros ( Tirado do livro Visual Basic 6.0 Passo a Passo de Clayton Walnum da editora Ciência moderna Página 58) Alguém sabe onde está o erro ? Option Explicit Private Sub Form_Load() Label1.Caption = "# de Central do Cartão-Postal:" Label2.Caption = "Price each:" Label3.Caption = "# deDança Com Ratos" Label4.Caption = "Price each:" Label5.Caption = "# de Vida de Desodorante:" Label6.Caption = "Price each:" Label7.Caption = "Total value:" Label8.Caption = "Average value:" Text1.Text = "0" Text2.Text = "0" Text3.Text = "0" Text4.Text = "0" Text5.Text = "0" Text6.Text = "0" End Sub Private Sub Command1_Click() Dim quantity As Integer Dim Price As Single Dim TotalNumTapes As Integer Dim TotalValue As Single Dim AverageValue As Single quantity = Text1.Text TotalNumTapes = quantity Price = Text2.Text TotalValue = quantity * Price quantity = Text3.Text TotalNumTapes = TotalNumTapes + quantity Price = Text4.Text TotalValue = TotalValue + quantity + Price quantity = Text5.Text TotalNumTapes = TotalNumTapes + quantity Price = Text6.Text TotalValue = TotalValue + quantity * Price AverageValue = TotalValue / TotalNumTapes Label7.Caption = "Total.Value: " & TotalValue Label8.Caption = "Average.Value:" & AverageValue End Sub

[kauebranco 0]

o que deveria fazer que num faz ?? e como assim num da o resultado ??como você sabe que deu errado se num apresentou erro ??