将文件名添加到组合框，但包含特定文本的文件名除外

Question

我正在使用此代码将文件名添加到下拉列表中：

    Dim AddToFilter As New IO.DirectoryInfo(Path)
    For Each NameThing As FileInfo In AddToFilter.GetFiles("*.xlsx", SearchOption.TopDirectoryOnly)
        Dim FileName As String = NameThing.Name
        FileName = FileName.Replace(".xlsx", "")
        cmbStateFilter.Items.Add(FileName)
    Next

此代码适用于添加不包括扩展名的文件名，但如果我有4个文件：
1.＆＃34; Test1＆＃34;
2.＆＃34;测试2＆＃34;
3.＆＃34; ABCDTest3＆＃34;
4.＆＃34; 902Test4＆＃34;

如何防止以ABCD和902开头的文件被添加到此下拉列表中？