Type Picture 
  Avtor As String 
  NameOfPicture As String 
End Type 

Sub Main
  Dim aArray( 0  To  24 ) As Picture
  Dim i As Integer 
  Dim j As Integer 
    
  for i =   0  To 
End Sub 

Option Explicit


Type Picture
  NameOfAvtor As String
  NameOfPicture As String
  
End Type

Private Sub Form_Load()
  Dim aArray( 24 ) As Picture
  Dim tempArray( 24 ) As Picture
  Dim i As Integer
  Dim j As Integer
  Dim ResString As String
  Dim Counter As Integer
  Dim NameAvt As String
  Dim NamePict As String
  Dim day As Integer
  
  
  
  
  

     i =  1 
     j = i
        For j =  1  To  7 
            tempArray(j).NameOfAvtor = aArray(i).NameOfAvtor
            tempArray(j).NameOfPicture = aArray(i).NameOfPicture
            NameAvt = tempArray(j).NameOfAvtor
            NamePict = tempArray(j).NameOfPicture
            day = j
            ResString = "В " + CStr(day) + "-й день выставки Продана картина " + NamePict + " автора " + NameAvt
            MsgBox ResString
            i = i +  1 
        Next j
    
    

End Sub

// вместо этого 
    For i = LBound(aArray) To UBound(aArray)
       aArray(i).NameOfAvtor = "Айвазовский"
       aArray(i).NameOfPicture = "Картина"

    Next i

// сделайте вот это 
  aArray( 1 ).NameOfAvtor  = "Типа автора"
  aArray( 1 ).NameOfPicture = "Типа Картина"
  aArray( 2 ).NameOfAvtor  = "Типа Другой автора"
  aArray( 2 ).NameOfPicture = "Типа Другая картина"
// собстно так для всех  24  элементов главное что бы они не повторялись