Nu är detta lite överkurs för en nybörjare som jag
men jag vill försöka få till det här, jag har kollat efter
exempel men inte lyckats hittils. jag har en textfil som
ser ut som nedanför, jag ska göra ett program som räknar
ut timmar som är fakturerade, hur ska jag spara ned
dessa siffror?

350001350000100
350001360005067
350001370000038
350001380000350
350001390000180

det jag är ute efter är tex på raden som börjar
med 35000139 vill jag hämta 180 och raden 35000138 är
det intressanta 350 osv...jag vill spara detta för
att senare summera ihop det....(exemplet är 5 rader av säkert flera 100)

Nu är jag inte säker på exakt hur du har tänkt dig, men skulle inte Line Input kunna fungera här för att läsa in raden, och sedan Right för att plocka sista tre tecknen/siffrorna i raden dit du vill ha dem?
Mvh
/EE

Efter som alla rader har en fixed antal tecken är det mycket enkelt. Klistra in funktionen i en modul eller i ditt formulär:
<code>
Option Explicit

Private Type typeFileRow
FirstPart As String * 8
LastPart As String * 7
NewRow As String * 2
End Type

Public Function SumFakturerat(FilNamn As String) As Long
Dim FileNo As Long
Dim Row As typeFileRow
On Error GoTo SumFakturerat_Err
FileNo = FreeFile()
Open FilNamn For Binary Access Read Shared As FileNo
Do Until EOF(FileNo)
Get FileNo, , Row
SumFakturerat = SumFakturerat + CLng(Row.LastPart)
Loop
Close FileNo
Exit Function

SumFakturerat_Err:
Select Case Err.Number
Case 13 'Type Mismatch
Resume Next
Case Else
Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
End Select
End Function
</code>

Tack för tipsen......
/Peder