Dim speicher() As String
 
Sub datei_einlesen()
Dim FN As Integer
Dim i As Integer
Dim zeile As String
 
FN = FreeFile()
Open App.path & "\datei.txt" For Input As #FN
 
While Not EOF(FN)
    i = i + 1
    ReDim Preserve speicher(i) 'redimensioniert array, erhält aber die daten
    Line Input #FN, zeile
    speicher(i) = zeile
Wend
 
Close #FN
End Sub
 
Sub pruefen()
Dim i As Byte 'max 255
Dim ii As Byte 'max 255
 
For i = 0 To UBound(speicher())  'arraygrösse
     For ii = 0 To 70   'button Index
        If button(ii).Caption = speicher(i) Then
             button(ii).BackColor = &HC0&
             Exit For
        End If
     Next
Next
 
End Sub

Das Projektforum is auch da ;)