GetNextID = Left(sInp, Len(sInp) - Len(s)) & Format(s + 1, String(Len(s), "0"))