如何將16進位的數轉換存入byte 的陣列(編號：893)

如下
Dim Buf() as byte
const NumH=&H180
如何將NumH轉存 入Buf() 之內
Thank You!