To take the coloumn sum from a listview in vb.net

To take the sum from a listview in vb.net
-------------------------------------------------------------------------------------
Private Sub Btsum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsearch.Click
Lblamount.Text = FIND_TOT_AMT
End Sub
-------------------------------------------------------------------------------------
Public Function FIND_TOT_AMT() As Double
Dim k As Integer = 0
Try
Dim j As Integer = ListView1.Items.Count
Dim i As Integer
For i = 0 To j - 1
k += CType(ListView1.Items(i).SubItems(2).Text, Integer)
Next
Catch ex As Exception
End Try
Return k
End Function
-------------------------------------------------------------------------------------