Option Explicit
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef _
  bylpvDest As Any, ByRef lpvSource As Any, ByVal cbCopy As Long)
 
Public Function BytesTo(Bytes() As Byte, TypeOfData As VbVarType) As Variant
Dim NbOfBytes As Long
Dim lVal As Long
Dim sval As Single
Dim dVal As Double
NbOfBytes = UBound(Bytes) - LBound(Bytes) + 1
Select Case TypeOfData
   Case vbLong
      If NbOfBytes < Len(lVal) Then
         CopyMemory lVal, Bytes(LBound(Bytes)), NbOfBytes
      Else
         CopyMemory lVal, Bytes(LBound(Bytes)), Len(lVal)
      End If
      BytesTo = lVal
   Case vbSingle
      If NbOfBytes < Len(sval) Then
         CopyMemory sval, Bytes(LBound(Bytes)), NbOfBytes
      Else
         CopyMemory sval, Bytes(LBound(Bytes)), Len(sval)
      End If
      BytesTo = sval
   Case vbDouble
      If NbOfBytes < Len(dVal) Then
         CopyMemory dVal, Bytes(LBound(Bytes)), NbOfBytes
      Else
         CopyMemory dVal, Bytes(LBound(Bytes)), Len(dVal)
      End If
      BytesTo = dVal
   Case Else
      BytesTo = 0
End Select
End Function

Private Sub Command4_Click()
Dim Bytes(1 To 4) As Byte
Bytes(1) = 102
Bytes(2) = 102
Bytes(3) = 150
Bytes(4) = 64
Debug.Print BytesTo(Bytes, vbSingle)
' 4.7
End Sub