strValue1 = left$(strOrderID, InStr(strOrderID, '_'))
strValue2 = right$(strOrderID, Len(strOrderID) - InStr(strOrderID, '_'))
Det kanske fungerar...
eller
strOrderID = Replace(strOrderID, "_", ";")
varMyArray = Split(strOrderID, ";")
Det kanske knasar sig med underscore.
