Récupération valeur liste déroulante et affichage d'un texte

Private Sub cmbCategories_AfterUpdate()
Dim lngIDCat   As Long
Dim SQL        As String

         ' Pour faire adapter la seconde liste déroulante à la première
  If Not IsNumeric(Me!cmbCategories) Then Exit Sub
  lngIDCat = Me!cmbCategories
  SQL = "SELECT IDPart, Part, IDCategorie FROM TBLParts WHERE IDCategorie =" & lngIDCat & " ORDER BY Part"
  cmbParts.RowSource = SQL
  cmbParts.Enabled = True
  cmbParts.SetFocus
  cmbParts.Dropdown
  
         'Ca c'était pour un test de message box
  Dim MonCtl As Control
Dim Element As Variant
Set MonCtl = Forms!FRLTest!cmbCategories
For Each Element In MonCtl.ItemsSelected
    MsgBox MonCtl.Column(0, Element)
Next
  
          'Et ça pour un texte (nommé platine) à afficher lorsque l'on sélectionne 3738.
  'If Me.cmbCategories = "3738" Then
    'Me.Platine.Visible = True
    'Else
    'Me.Platine.Visible = False
    'MsgBox "Votre référence est en platine"
  'End If

End Sub