Is it possible to change the name of a variable in a For...Loop? I am trying
to avoid using a bunch of If...Then Statements. Below is my attempt at the
for loop and the If...Then Statement I am trying to avoid.

'PAINT MATERIAL COSTS
Dim i as Byte
Dim TotalPaint As Currency
Dim Paint1 As Currency
Dim Paint2 As Currency
Dim Paint3 As Currency
Dim Paint4 As Currency
Dim Paint5 As Currency
Dim Paint6 As Currency

For i = 1 To Val(tbxColorsP) '1 < tbxColorsP < 6
If mpgPaint.Pages(i-1).Visible = True Then
Object.Name("Paint" & i) = FaceSqFt * Val("cboAreaP" & i) / 100 *
Val("tbxColorsP" & i) * PlasticPaint_C
Else
Exit For
End If
Next i

TotalPaint = Paint1 + Paint2 + Paint3 + Paint4 + Paint5 + Paint6

********************
If mpgPaint.Pages(0).Visible = True Then
Paint1 = FaceSqFt * Val(cboAreaP1) / 100 * Val(tbxColorsP1) *
PlasticPaint_C
End If
If mpgPaint.Pages(1).Visible = True Then
Paint2 = FaceSqFt * Val(cboAreaP2) / 100 * Val(tbxColorsP2) *
PlasticPaint_C
End If
If mpgPaint.Pages(2).Visible = True Then
Paint3 = FaceSqFt * Val(cboAreaP3) / 100 * Val(tbxColorsP3) *
PlasticPaint_C
End If
If mpgPaint.Pages(3).Visible = True Then
Paint4 = FaceSqFt * Val(cboAreaP4) / 100 * Val(tbxColorsP4) *
PlasticPaint_C
End If
If mpgPaint.Pages(4).Visible = True Then
Paint5 = FaceSqFt * Val(cboAreaP5) / 100 * Val(tbxColorsP5) *
PlasticPaint_C
End If
If mpgPaint.Pages(5).Visible = True Then
Paint6 = FaceSqFt * Val(cboAreaP6) / 100 * Val(tbxColorsP6) *
PlasticPaint_C
End If

TotalPaint = Paint1 + Paint2 + Paint3 + Paint4 + Paint5 + Paint6

Thanks in Advance
Ryan