position = SearchFileForText("c:\mv1.txt", "***")
'Ich hole mir die Position der drei * 
zaehler = 0
If position > 0 Then
[color=green]' Ich hole mir im Prinzip die von bis Position des 
' Zahlenwertes
        position1 = position + 2
        position2 = position + 6
 
        Open "c:\mv1.txt" For Binary As #1   ' Datei öffnen.
[color=green]'Und lese die Datei von Position1 bis Position2 aus
        Do While zaehler < position2
            zaehler = zaehler + 1
            mstabzahl = Input(1, #1)   ' Ein Zeichen lesen.
            If zaehler > position1 Then
            mstab = mstab + mstabzahl
            End If
        Loop
        Close #1   ' Datei schließen.
End If
[color=green]'Zum schluß übergebe ich mir den wert mstab als Double an 
' endmstab
endmstab = CDbl(mstab)

---------------------------------------------------------------------------------------------------------------
Wissen ist Macht, aber nichts wissen macht nichts!