Amend the coding so it equals to CountryID

[mchoudhury]

Hi Guys,
this is my coding:

For c = 0 To CCL.Count - 1

If Country1 > 0 Then

BTCountry1Daytime = CCL.Item(c).PeakPerMin / 100
BTCountry1Evening = CCL.Item(c).OffPeakPerMin / 100
BTCountry1Weekend = CCL.Item(c).WeekendPerMin / 100

End If
If Country2 > 0 Then

BTCountry2Daytime = CCL.Item(c).PeakPerMin / 100
BTCountry2Evening = CCL.Item(c).OffPeakPerMin / 100
BTCountry2Weekend = CCL.Item(c).WeekendPerMin / 100

End If
If Country3 > 0 Then

End If
Next c

How can i amend the for loop, so CCL.Item(c) is equals to the value of Country1 or Country2 in each if statement. i.e. if Country1 = 1 then this should be CCL.Item(1) and same for Country2

Thanks
Mac