Dim dwrd As Dword
  Dim wrd1 As Word
  Dim wrd2 As Word
  Dim bte1 As Byte  
  Dim bte2 As Byte  
  Dim bte3 As Byte  
  Dim bte4 As Byte
   
  Dim pb1 As Byte  
  Dim pb2 As Byte  
  Dim pb3 As Byte  
  Dim pb4 As Byte  
  Dim pb5 As Byte  
  Dim pb6 As Byte  
  Dim pb7 As Byte  
  Dim pb8 As Byte  
   
   
   
  begin:
   
  dwrd = $7DBEEDF7
  wrd1 = dwrd.LowWord
  wrd2 = dwrd.HighWord
  bte1 = wrd1.LowByte
  bte2 = wrd1.HighByte
  bte3 = wrd2.LowByte
  bte4 = wrd2.HighByte
   
  pb1 = bte1 >> 4  
  pb2 = bte1 & $F
  pb3 = bte2 >>4  
  pb4 = bte2 & $F
  pb5 = bte3 >> 4  
  pb6 = bte3 & $F
  pb7 = bte4 >>4  
  pb8 = bte4 & $F

  GoTo begin