Versuch mal so:

Option Explicit

Private Sub CheckBox2_Change()
  Call ValidateSelections
End Sub

Private Sub CheckBox3_Change()
  Call ValidateSelections
End Sub

Private Sub ListBox1_Change()
  Call ValidateSelections
End Sub


Private Sub ValidateSelections()
  
  If ListBox1.Value = "Name" And CheckBox2.Value Then
    MsgBox "Test", vbInformation
  End If
  
End Sub