THE PROBLEMS at the bottom of the page, thank you in advance for your time reading this, and i hope you can help btw im new so hello to all of you and i hope in the near future i will be able to help someone as you may to me thank you

Hello, was wondering if anyone can help me, well my task is to create a programme for a rental company that lends out playstation, dvd and videos. entering a product code such as D13456 and V23456 and P23456 so on ( only 12, 4 of each) and adding the prices up into a text box. I have this code so far.

Dim counteritem As Integer
Dim counter As Integer
Dim myvar As String
Dim num As Integer
Dim D As Double
Dim P As Double
Dim V As Double
Dim iprice As Integer
Dim itotal As Double

CALCULATION BIT THAT NEEDS SORTING OUT:
Private Sub cmdcal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcal.Click
counteritem = lstboxpric.Items.Count - 1
For counter = 0 To counteritem
myvar = lstboxpric.Items.Item(Int(counter))

If myvar = D Then
num = D
itotal = itotal + num
BVAT.Text = "£ " & itotal
End If
If myvar = V Then
num = V
itotal = itotal + num
BVAT.Text = "£ " & itotal
End If
If myvar = P Then
num = P
itotal = itotal + num
BVAT.Text = "£ " & itotal
End If
Next
itotal = 0
End Sub

'This is the prices D = dvd V = video P = Playstation the prices are followed after the equals

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
D = 3.25
V = 2.55
P = 1.55
End Sub

'This is the values that are added in the list box ready for calculation.

Private Sub cmdadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadd.Click
lstboxname.Items.Add(lbl1.Text)
If lbl2.Text = 3.25 Then
lstboxpric.Items.Add(D)
ElseIf lbl2.Text = "2.55" Then
lstboxpric.Items.Add(V)
ElseIf lbl2.Text = "1.55" Then
lstboxpric.Items.Add(P)
End If
End Sub
My problem is that all the adding works so that if the 3.25 and 2.55 are in the lstboxpric the BVAT.text would come up with £6 instead of being£5.80 (i no for definate that it is rounding the sums up i have tried so many times) can any one see what i am doing wrong .. thank you so much for reading this i appreciate it .

I think thats correct so far anyway :/

much appreciated

cheers