Anexo

Bem vindo, RenanFelix

Preciso de uma Function em VBA que compare o valor de uma célula e verifique se está correto, ou seja seguindo o padrão....depois mostrar se está errado ou correto.

Se for só para checagem certo/não certo (VERDADEIRO/FALSO), segue minha contribuição:

Function CódigoÉVálido(cód As String) As Boolean
  With CreateObject("VBScript.RegExp")
   .Pattern = "^((d{11}_PF)|(d{14}_PJ))_(d{2})(d{2})(d{4})_(NA|MENOR30|(IGUAL|MAIOR)[36]0)$"
   If .Test(cód) Then
    With .Execute(cód)(0).SubMatches
      CódigoÉVálido = IsDate(.Item(3) & "/" & .Item(4) & "/" & .Item(5))
    End With
   End If
  End With
End Function