For Next em Caption de Labels

Ola Pessoal,

Estou precisando criar um laço para verificar o CAPTION de várias LABELS, mas estou me embolando em alguma coisa. Será que alguém poderia me dar um help.

Abaixo segue minha rotina, que da forma como coloquei esta dando erro 13 "Tipos Incompatíveis".

Valeu

Código:

For k = 1 To Label37
         
                If k.Caption < FORMAG3.ListBox1.List(a, 3) Then
                             
                    If ListBox1.List(a, 1) = "M" Then
                        k.BackColor = &HFF8080
                    ElseIf ListBox1.List(a, 1) = "A" Then
                        k.BackColor = &H80FF&
                    ElseIf ListBox1.List(a, 1) = "PG" Then
                        k.BackColor = &HFF00&
                    ElseIf ListBox1.List(a, 1) = "C" Then
                        k.BackColor = &HFF&
                    End If
                End If
         
          Next k