PrintArray fonksiyonunun kodunu aşağıdaki gibi düzenleyebilirmisiniz
'hy Satırları arasındaki kodlar eklenecek
ben deneme amaçlı olarak kayıtlarda yer alan "BK2 AG" kullandım siz istediğinizi kullanırsınız

Private Sub PrintArray()

On Error GoTo ErrorHandler



Dim strCtlName As String

Dim i As Integer



For i = LBound(myArray) To UBound(myArray)

    strCtlName = "txt" & CStr(i + 1)

    Controls(strCtlName).Tag = i

    Controls(strCtlName) = ""

    Controls(strCtlName) = myArray(i, 2)

'hy Renk değişimi_________________________________ 

    If myArray(i, 1) = True And InStr(myArray(i, 2), "BK2 AG") > 0 Then _

    Controls(strCtlName).BackColor = RGB(255, 255, 0) Else _

    Controls(strCtlName).BackColor = RGB(255, 255, 255) 

'hy Renk değişimi_________________________________Bitti

Next i





ExitSub:

    Exit Sub

ErrorHandler:

    MsgBox "There has been an error. Please reload the form"

    Resume ExitSub



End Sub