SoloCodigo

Hice un programa para controlar el gasto de internet, me genera un archivo de texto con lo siguiente.

Fecha;Hora;Tiempo;Pulsos;Pesos
04/04/2003;14:29;0:01;1;0,05672
04/04/2003;15:45;0:22;7;0,39704
05/04/2003;13:15;0:46;14;0,79408
05/04/2003;17:52;0:08;5;0,2836
05/04/2003;21:19;0:26;4;0,22688

como puedo hacer por para sumar todo lo que corresponde a la columna Pesos por ejemplo?

desde ya muchas gracias.  

Gracias por la respuesta, lo que pasa es que estoy tratando de hacerlo sin agregar ningun control, solo con el codigo que valla leyendo el texto, mirando ejemplos de codigos hice esto que funciona, falta ordenarlo un poco, tengan en cuenta que no se mucho de programacion.

Function Calcular()
    Pesos = 0
    fnum = FreeFile
    fname = App.Path & "2003-4-Abril.txt"
    Open fname For Input As #fnum
   
    Input #fnum, MaxBook
    ReDim BookInfos(0 To MaxBook)

    For i = 0 To MaxBook
        With BookInfos(i)
            Input #fnum, .Fecha, .Hora, .Tiempo, .Pulsos, .Pesos
            Pesos = Pesos + .Pesos
        End With
    Next i
    Close #fnum
   
    GastoTotal_lbl.Caption = Pesos
    Conexiones_lbl.Caption = MaxBook
    GastoPromedio_lbl.Caption = Pesos / MaxBook
   
    Dim hoy, Faltan
    hoy = Format(Now, "mm")
    Faltan = 31 - hoy
    Label5 = GastoTotal_lbl.Caption + GastoPromedio_lbl.Caption * Faltan
End Function


.