CByte() ?

codice:
Dim ValoreA = 10
Dim ValoreB = 8
Dim valore As Integer = BitConverter.ToInt16(New Byte() {ValoreA, ValoreB}, 0)

MsgBox(CByte(valore Mod 256))
Solo che così otterresti solo ValoreA (= 10)...