Используйте оператор And
и запишите литерал в шестнадцатеричном формате (простое преобразование из двоичного кода):
theShort = theShort And &h00ff
Если то, что вы на самом деле пытаетесь сделать, это разделить короткое число на байты, есть встроенный метод для этого:
Dim bytes As Byte() = BitConverter.GetBytes(theShort)
Теперь у вас есть массив с двумя байтами.