Dim?i,?j,?n?As?Integer
For?i?=?10000?To?99999
If?Mid(CStr(i),?j,?1)?<>?Mid(CStr(i),?6?-?j,?1)?Then?Exit?For
Print?i;
n?=?n?+?1
If?n?Mod?20?=?0?Then?Print
Next
End?Sub