Stuck on a no brainer

[sonyc]

ok im trying to write programs to help friends of mine with a game (they are not hacks for they game)

Private Sub Command1_Click()
Dim a As Integer
Dim b As Double
Dim c As Double
 
a = Text1.Text
Label1.Caption = b
Label2.Caption = c
 
b = a * a * a * 8000
c = a * a * a * 8400
End Sub

I read what other people posted on similar topics and it couldnt work.
if there is help out there please... let me have it.