Hexadecimal Number to Binary

Private Sub Command1_Click()

Dim lngX As Long

Dim lngY As Long

Dim strBinary As

String

lngX = &HAAAAAAAA

lngY = 1
On Error Resume Next
strBinary = ""
Do While Err.Number = 0
If lngX And lngY Then
strBinary = "1" & strBinary
Else
strBinary = "0" & strBinary
End If
lngY = lngY + lngY
Loop

If lngX And &H80000000 Then
strBinary = "1" & strBinary
Else
strBinary = "0" & strBinary
End If

MsgBox strBinary


End Sub