In ogni caso, il codice e' questo ...

codice:
    Dim a As Long
    Dim b1 As Byte
    Dim b2 As Byte
    Dim b3 As Byte
    Dim b4 As Byte
    
    a = 1038
    
    b1 = ((a And &HFF000000) \ &H1000000) And &HFF&
    b2 = (a And &HFF0000) \ &H10000
    b3 = (a And &HFF00&) \ &H100&
    b4 = a And &HFF
    
    Print b1
    Print b2
    Print b3
    Print b4
... le conversioni nella base che preferisci le puoi fare alla fine prima di visualizzare i risultati ...