ROBOT.LK

Code: Select all

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.Print Asc(Mid(str1, i, 1)); " ";
    Next
    
    FloatTo4BytesString = str1
    
End Function