Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _ hpvDest As Any, hpvSource As Any, _ ByVal cbCopy As Long) Private Function FloatTo4BytesString(sng As Single) As String Dim str1 As String str1 = String(4, vbNullChar) Call CopyMemory(ByVal str1, sng, 4) For i = 1 To 4 Debug.Pr...