Private Function HexToFloat(ByVal hexstring As String) As Single
 
  Dim num As UInteger = _
      UInt32.Parse(hexString, _
      System.Globalization.NumberStyles.AllowHexSpecifier)
 
  Dim floatVals() As Byte = BitConverter.GetBytes(num)
 
  Return BitConverter.ToSingle(floatVals, 0)
 
End Function