Dim s As Single
Dim i As Long
Dim max As Double
 
For i = 0 To max
s = CSng(bytearray(i) * 256 + bytearray(i+1))
's wird in der folgenden Zeile in ein Single-Array eingetragen
'...
Next

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008