title: Multiplying with VBA
body: <p>I have a form where i need to multiply 3 different values to provide the desired result. It is below:</p>
  
  <pre><code>Private Sub cmdAdd_Click()
  
  Dim emptyRow As Long
  Dim ctl As Control
  Dim A As Integer
  Dim B As Integer
  Dim C As Integer
  Dim D As Integer
  Dim E As Integer
  Dim Answer As Integer
  Dim Answer2 As Integer
  Dim Answer3 As Integer
  
  
  
  If Me.txtNoTotalAff.Value = "" Then
      MsgBox "Please enter the Total Number of Affiliates", vbExclamation, "ROI"
      Me.txtNoTotalAff.SetFocus
      Exit Sub
  End If
  If Me.lstClientName.Value = "" Then
      MsgBox "Please enter Client Name", vbExclamation, "ROI"
      Me.lstClientName.SetFocus
      Exit Sub
  End If
  'Determine Empty Row
   emptyRow = Worksheets("ROI").Range("A1").CurrentRegion.Rows.Count
   A = txtNoTotalAff.Value
   B = txtActiveAff.Value
   C = txtAvgTraffic.Value
   D = txtConvRate.Value
   E = txtAOV.Value
  
   Answer = A * B
   Answer2 = Answer * C
   Answer3 = (Answer2 * D) * E
  
   'Transfer Information
   With Worksheets("ROI").Range("A1")
  .Offset(emptyRow, 0).Value = lstClientName.Value
  .Offset(emptyRow, 1).Value = txtNoTotalAff.Value
  .Offset(emptyRow, 2).Value = txtActiveAff.Value
  .Offset(emptyRow, 3).Value = Answer
  .Offset(emptyRow, 4).Value = txtAvgTraffic.Value
  .Offset(emptyRow, 5).Value = Answer2
  .Offset(emptyRow, 6).Value = txtConvRate.Value
  .Offset(emptyRow, 7).Value = txtAOV.Value
  .Offset(emptyRow, 8).Value = Answer3
  .Offset(emptyRow, 9).Value = txtAffName.Value
  
   End With
  
  'Clear the Form
  For Each ctl In Me.Controls
      If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
      ctl.Value = ""
      ElseIf TypeName(ctl) = "CheckBox" Then
      ctl.Value = False
      End If
  Next ctl
   End Sub
  </code></pre>
  
  <p>I need to either use the variables and have them calculate each or I would like to use the answers themselves to get the desired result.</p>
  
  <p>How can I accomplish this?</p>