Desculpe mas, eu fiz como orientaste : Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer) If rigth((Me.Referencia), 2) = "09" Then Me.Resultado.Value = "Setembro de " & Left(Me.Referencia, 4) End If End Sub Aparece a msg de erro: Erro de compilação 'SUB' ou 'FUNCTION' não definida. Onde eu errei. Obrigado! Um abraço!