wincc的OPC通讯接收到的数据怎么转换成double型和single型

示例代码：

Function mHexToDecimal(varHexArray)
    mHexToDecimal = varHexArray(0)*2^24+varHexArray(1)*2^16+varHexArray(2)*2^8+varHexArray(3)  
End Function

Function mHexToBin(varHexArray)
    Dim lngDec
    Dim strHexToBin
    lngDec = CLng(mHexToDecimal(varHexArray)) 
    Do While lngDec > 0
        strHexToBin = CStr(lngDec Mod 2) & Trim(strHexToBin)
        lngDec = lngDec \ 2
    Loop
    mHexToBin = strHexToBin
End Function

Function mHexToSingle(varHexArray)
    Dim i
    Dim BinLen
    Dim SngBin
    Dim Sign
    Dim Exp
    Dim Frac
    
    If varHexArray(0) > &H7F Then
      Sign = -1
      varHexArray(0)=varHexArray(0)-&H80
    Else
      Sign = +1
    End If
         
    SngBin=mHexToBin(varHexArray)
    BinLen=Len(SngBin)
    
    For i=1 To 32-BinLen
     SngBin="0" & SngBin
    Next    
    
    For i=1 To 8
     Exp=Mid(SngBin, i+1, 1)*2^(8-i)+Exp
    Next
    Exp=2^(Exp-127)
        
    For i=1 To 23
     Frac=Mid(SngBin, i+9, 1)*2^(-i)+Frac
    Next    
    Frac=1+Frac
    
    mHexToSingle=Sign*Exp*Frac
    
End Function