inventory sms system

[nokmaster]

hi, how to make an very simple inventory

this is the screenshots



now if the Amt Loaded receive P26.00 in the income will appear P4.00

then schem

Amt Loaded / Income

P26.00 / P4.00
P52.00 / P8.00
P100.00 / P15.00
P200.00 / P0.00
P300.00 / P10.00
P500.00 / P0.00
P1000.00 / P0.00

i want only to compute the INCOME

daily/monthly/yearly

the code for listview is

Sub LoadListView(strPath As String, SettingsList As ListView)
 
 Dim s1              As String
        
   SettingsList.ListItems.Clear
        
      Dim fso As New FileSystemObject, tso As TextStream
        
        Set tso = fso.OpenTextFile(strPath)
          
        Do While Not tso.AtEndOfStream
            s1 = tso.ReadLine
            SettingsList.ListItems.Add , , s1
        Loop
        
        tso.Close
   End Sub

Dim i               As Long
        Dim strData()       As String
        
        Call LoadListView(App.Path & "\ReadELoadMessages", lstRawData)
        DoEvents
        
        lstRawData.ListItems.Remove 1
        lstRawData.ListItems.Remove 1
        DoEvents
        
        If lstRawData.ListItems.Count >= 10 Then
            For i = 10 To lstRawData.ListItems.Count Step 11
                If InStr(lstRawData.ListItems.Item(i).Text, "Unable to process transaction") = 0 Then
                    If InStr(lstRawData.ListItems.Item(i).Text, ":") <> 0 Then
                        strData = Split(lstRawData.ListItems.Item(i), ":")
                        
                        lstData.ListItems.Add , , strData(0)
                        lstData.ListItems.Item(lstData.ListItems.Count).ListSubItems.Add , , Mid$(strData(1), InStr(strData(1), " to ") + 4, InStrRev(strData(1), ".") - InStr(strData(1), " to ") - 4)
                        lstData.ListItems.Item(lstData.ListItems.Count).ListSubItems.Add , , Mid$(strData(1), InStr(strData(1), "(") + 1, InStrRev(strData(1), ")") - InStr(strData(1), "(") - 1)
                        lstData.ListItems.Item(lstData.ListItems.Count).ListSubItems.Add , , strData(3)
                        lstData.ListItems.Item(lstData.ListItems.Count).ListSubItems.Add , , Left$(strData(2), InStrRev(strData(2), ".") - 1)
                    End If
                End If
            Next i
        End If