Imports System

Public Module Module1

    Public Sub Main()

        dim newid as string

            for i = 0 to 1000

            newid = "IAT" &  (8052+i).ToString().PadLeft(4,"0")

            console.WriteLine(newid)

        next i

    End Sub

End Module