[긴급] Text 로 소수점 입력 ==> Single 변환 => 한 바이트씩 분리 ?? Mask로 안됩니다...!!

[안진호]

Private Sub Command3_Click()
    Dim a As Single
   
    a = CSng(Text1.Text)
   
    Text2.Text = Fix((a And &HFF000000) / 256 / 256 / 256)
    Text3.Text = Fix((a And &HFF0000) / 256 / 256)
    Text4.Text = Fix((a And &HFF00) / 256)
    Text5.Text = a And &HFF
   
End Sub

=================================================
이렇게 하니까. 소수점 이하는 날라가고, 정수값만 나타납니다.

Single 값을 text로 읽고, 실제 Bit를 보기위해서, 각각의 바이트를 나눠서 보려고합니다.
도와 주세용...~~ 아무리 해도 안되네요...