Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private m_Value(0 To 255) As Single
 
 
Private Sub Init()
 
  Const c As Long = 256
  Dim i As Long
 
  For i = 0 To 255
    m_Value(i) = CSng(i * c)
  Next i
 
End Sub
 
Private Sub Test()
 
  Dim max As Long
  Dim i As Long
  Dim s As Single
 
  Dim tc1 As Long
  Dim tc2 As Long
 
  max = 10 ^ 6
 
  ReDim bytearray(0 To max) As Byte
  ReDim sarray(0 To max) As Single
 
  Init
 
  For i = 0 To max
    bytearray(i) = Int(256 * Rnd)
  Next i
 
  tc1 = GetTickCount()
  For i = 0 To max - 1
    s = m_Value(bytearray(i)) + CSng(bytearray(i + 1))
    sarray(i) = s
  Next i
  tc2 = GetTickCount()
 
  Debug.Print tc2 - tc1
  'lblresult.Caption = tc2 - tc1
 
End Sub
 
Private Sub Form_Load()
 
  Test
 
End Sub

Gruß
Dirk

--
?Get it right the first time