Private Sub Command1_Click() 
Dim a As String 
a = 0 
If Text2.Text = 0 Then 
    a = 1 
ElseIf Text2.Text = 1 Then 
    a = 0.7 
ElseIf Text2.Text = 2 Then 
    a = 0.7 * 0.7 
ElseIf Text2.Text = 3 Then 
    a = 0.7 * 0.7 * 0.7 
ElseIf Text2.Text = 4 Then 
    a = 0.7 * 0.7 * 0.7 * 0.7 
ElseIf Text2.Text = 5 Then 
    a = 0.7 * 0.7 * 0.7 * 0.7 * 0.7 
ElseIf Text2.Text = 6 Then 
    a = 0.7 * 0.7 * 0.7 * 0.7 * 0.7 * 0.7 
ElseIf Text2.Text = 7 Then 
    a = 0.7 * 0.7 * 0.7 * 0.7 * 0.7 * 0.7 * 0.7 
 
Else 
End If 
If Text1.Text = "" Then 
    MsgBox "put something in for x buttmunch", vbOKOnly 
ElseIf Text3.Text = "" Then 
    MsgBox "please fill in the rest of the boxes before i calculte, or i will download porn onto your computer!!!", vbOKOnly 
Else 
    Text4.Text = (Text1.Text * Text1.Text) * 0.13 * (a) / Text3.Text 
    Text5.Text = (Text1.Text) * 0.169 
    Text7.Text = ((Text6.Text) * (1.5)) / 15.3 
End If 
End Sub

<script language="VBScript"> 
<!-- 
Private Sub CalcAttack_OnClick() 
Dim a 
Dim b 
Dim intAns 
 
a = 0 
If Document.Form1.Text2.Value = 0 Then 
    a = 1 
ElseIf Document.Form1.Text2.Value = 1 Then 
    a = 0.7 
ElseIf Document.Form1.Text2.Value = 2 Then 
    a = 0.7 * 0.7 
ElseIf Document.Form1.Text2.Value  = 3 Then 
    a = 0.7 * 0.7 * 0.7 
ElseIf Document.Form1.Text2.Value  = 4 Then 
    a = 0.7 * 0.7 * 0.7 * 0.7 
ElseIf Document.Form1.Text2.Value  = 5 Then 
    a = 0.7 * 0.7 * 0.7 * 0.7 * 0.7 
ElseIf Document.Form1.Text2.Value  = 6 Then 
    a = 0.7 * 0.7 * 0.7 * 0.7 * 0.7 * 0.7 
ElseIf Document.Form1.Text2.Value  = 7 Then 
    a = 0.7 * 0.7 * 0.7 * 0.7 * 0.7 * 0.7 * 0.7 
Else 
End If 
 
b = 0 
If Document.Form1.AttackShipsLevel.Value = 0 Then 
    b = 1 
ElseIf Document.Form1.AttackShipsLevel.Value = 1 Then 
    b = 1 
ElseIf Document.Form1.AttackShipsLevel.Value = 2 Then 
    b = 1 
ElseIf Document.Form1.AttackShipsLevel.Value  = 3 Then 
    b = 1 
ElseIf Document.Form1.AttackShipsLevel.Value  = 4 Then 
    b = 1 
ElseIf Document.Form1.AttackShipsLevel.Value  = 5 Then 
    b = 1 
ElseIf Document.Form1.AttackShipsLevel.Value  = 6 Then 
    b = 1 
ElseIf Document.Form1.AttackShipsLevel.Value  = 7 Then 
    b = 1 
ElseIf Document.Form1.AttackShipsLevel.Value  = 8 Then 
    b = 11.9 
Else 
End If 
If Document.Form1.AttackShipsLevel.Value  = "0" Then 
    MsgBox "put the level in dumbass (1-8)", vbOKOnly 
Else     
 
	AttackPWR =(Document.Form1.Ships.Value) * (b) 
	Land = (Document.Form1.Text1.Value  * Document.Form1.Text1.Value ) * 0.13 * (a) / Document.Form1.Text3.Value  
    	MaxLand = (Document.Form1.Text1.Value ) * 0.169 
    	Ships = ((Document.Form1.Text6.Value ) * (1.5)) / 15.3 
intAns = AttackPWR 
Document.Form1.Results.Value = intAns 
 
End If 
End Sub 
--> 
</Script>