طلب تعديل في كود الطباعة

بســم الله الـرحمــن الرحيــم

انا عندي الكود التالي:

Printer.ScaleMode = 7
Printer.FontName = "arial"
Printer.FontSize = 12
Printer.ScaleLeft = 5
Printer.RightToLeft = False
Dim i As Integer
CurX = 1
For i = 1 To Text3.Text
Printer.CurrentY = 0.7
CurX = CurX + 5
Printer.CurrentX = CurX
Printer.Print  Text1 
Next

المطلوب للتعديل:

انا عندي ورقة ملصقات حجم ِA4 (ملصقات باركود)

text3 عدد الكرار

text1 الجملة المراد تكرارها

انا اريد ان يتكرر طباعة text1 مثلا 20 مرة و بعد ما يطبع الجملة في المرة الرابعة ينزل مسافة انا احددها(CurX) و يبدا يطبع اي بعد اربع طباعات ينزل مسافة افقي و هكذا حتى يكتمل العشرين

يعني بالضبط الموجود في الصورة