افزایش سرعت و عملکرد نرم افزار

با سلام به همه ی دوستان عزیز.
یک کنسول دارم ، که توی یک حلقه از اون نیاز داریم یک مقدار رو پرینت کنیم.
که از کد زیر استفاده میشه :
Console.Write(X)

اما این دستور خیلی کند هست ، توی بازه 500000 تا ، باعث میشه خیلی وقت براش صرف بشه.


سوال : راهی هست که بهینه تر از Console.write باشه ؟ و سریعتر از اون

یا به صورتی بشه مثل کد زیر :

   For X = 0 To 500000

            ppr(X)



        Next

 Private Shared Sub ppr(x As String)

        Console.Write(x)

    End Sub

اگر بخوام توضیحی که از کد بالا انتظار دارم بدم ، اینه که میخوام وقتی به اون تابع فراخانی شد ، دو نخ بشه . یعنی یک قسمت بره به تابع ppr و نخ اصلی هم به حلقه برگرده.
*اینکارو با ترد ها انجام دادم که متاسفانه سرعت افزایش نداشت ، کمتر هم شد.

اگر کسی اطلاعاتی داره بگه.
ممنونم