ایجاد یک متن متغیر درون یک متن ثابت

[ravegoat]

سلام دوستان فرض کنید من بخوام عملیاتی که در بالا ذکر کردم رو با چند عدد انجام بدم مثلا یه تکست باکس دارم بصورت زیر :
14 15
98 87
25 78
و همینطور الی آخر حالا می خوام این اعداد رو توی یه متن ثابت که در بالا ذکر کردم قرار بدم و خروجی بشه بصورت زیر:
aaa bbb ddd =1 e=15 f=14 a=b c=d
aaa bbb ddd =1 e=87 f=98 a=b c=d
aaa bbb ddd =1 e=78 f=25 a=b c=d
لطفا راهنمایی کنید ممنون

بفرمایید:

    Dim data1(3) As Integer
    Dim data2(3) As Integer
    Dim constStr As String
    
    data1(1) = 15
    data2(1) = 14
    data1(2) = 87
    data2(2) = 98
    data1(3) = 78
    data2(3) = 25
    
    For i = 1 To UBound(data1)
        constStr = "aaa bbb ddd =1 e=" + CStr(data1(i)) + " f=" + CStr(data2(i)) + " a=b c=d" + vbNewLine
        Print (constStr)
    Next