Вы можете превратить это число в строку из 20 символов. Вы можете разделить числа на шесть цифр. Поскольку для каждого из них требуется только 20 битов, вы можете представить их в виде пятизначного шестнадцатеричного числа:
230407 -> 38407
279314 -> 44312
680141 -> A60CD
236013 -> 399ED
Что даст строку из 20 символов:
3840744312A60CD399ED
Сделай так:
Dim code As String = _
Int32.Parse(orderNumber.Substring(0, 5)).ToString("x5") + _
Int32.Parse(orderNumber.Substring(5, 5)).ToString("x5") + _
Int32.Parse(orderNumber.Substring(11, 5)).ToString("x5") + _
Int32.Parse(orderNumber.Substring(16, 5)).ToString("x5")