The Array function will return a best-guess array. If you want to be sure, create your own function to return an array of the correct type, like so:
Function UInt8Array (ParamArray arr() As UInt8) As UInt8()
return arr
End Function
dim myArray() as UInt8 = UInt8Array(&h0, &h6, ... )
Edit to include parens in the return parameter.