@Magnus1982: no info from you re: name of table or anything, so you can take it from here. I dumped your values into my table tblSequence with field "Sequence".
Then I copied tblSequence as tblSequence2 (structure only) with field Sequence2. The following code seems to work with your posted data(105 to 206 group). You will have to modify it with your own table/field names and create the table to put the values in. I have included code notes to explain everything. As with any unfamiliar code, test on a copy of your db, or at least copies of any tables you plan to alter with this.
Code:
Sub getSequence()
Dim rs As DAO.Recordset 'create DAO recordset to load sequence values
Dim lngOne As Long, lngTwo As Long
Set rs = CurrentDb.OpenRecordset("SELECT tblSequence.Sequence FROM tblSequence") 'populate rs
If Not (rs.BOF And rs.EOF) Then 'if TRUE there are no records so just exit IF block
rs.MoveFirst
lngOne = Right(rs.Fields("Sequence"), 4) 'get last 4 characters from 1st record
With CurrentDb
.Execute "DELETE * FROM tblSequence2", dbFailOnError 'flush tblSequence2
.Execute "INSERT INTO tblSequence2 (Sequence2) VALUES ('" & rs.Fields("Sequence") & "')", dbFailOnError 'add 1st complete sequence value
End With
rs.MoveNext 'move to next record...
Do While Not rs.EOF 'quit when end of recordset file is reached
lngTwo = Right(rs.Fields("Sequence"), 4) '...and get 4 characters of next sequence value. Leading zeros are ignored
'subtract value 1 from value 2. If diff > 1, write complete sequence value to table
If (lngTwo - lngOne) > 1 Then CurrentDb.Execute "INSERT INTO tblSequence2 (Sequence2) VALUES ('" & rs.Fields("Sequence") & "')", dbFailOnError
lngOne = lngTwo 'now set value 1 = value 2 so as to compare to next value after 2
rs.MoveNext 'move to next record to get next value
Loop
End If
End Sub