Public Function RealToDouble(ByVal Data As String) As Double
Dim dMantissa As Double
Dim i As Integer
Dim j As Long
Dim k As Long
Dim t As Integer
If Len(Data) <>  6  Then
'Err.Raise
'exception
Exit Function
End If

'accumulate the mantissa
dMantissa =  1 
For i =  6  To  2  Step - 1 
    If i =  6  Then
        t =  6 
    Else
        t =  7 
    End If
    For j = CLng(t) To  0  Step - 1 
        k = k +  1 
        If (Asc(Mid$(Data, i,  1 )) And CLng( 2  ^ j)) <>  0  Then
        dMantissa = dMantissa +  2  ^ -k
        End If
    Next j
Next i

'finally, assemble all the pieces into a number
If (Asc(Mid$(Data,  6 ,  1 )) And &H80) = &H80 Then
    RealToDouble = -dMantissa *  2  ^ (Asc(Mid$(Data,  1 ,  1 )) -  129 )
Else
    RealToDouble = dMantissa *  2  ^ (Asc(Mid$(Data,  1 ,  1 )) -  129 )
End If

'Thanks for your help
'David
End Function