Удалить файл, зная только часть его имени

Imports System.IO
Imports System.Text.RegularExpressions
 
Const root As String = "D:\Temp"
Dim fileName As String = Directory.EnumerateFiles(root). _
                            Where( Function(n) Regex.IsMatch(Path.GetFileName(n), "kk\d+") ). _
                            FirstOrDefault()
If fileName IsNot Nothing Then
    File.Delete(fileName)
End If

        Dim fileNames() As String = Directory.EnumerateFiles("C:\01").ToArray
        Dim dd = From d In fileNames Where Regex.IsMatch(Path.GetFileName(d), "kk\d+")
        'результат
        Dim ss As String = ""
        If dd.Count > 0 Then ss = String.Join(vbCrLf, dd)
        MsgBox(ss)

        Dim fileNames() As String = Directory.GetFiles("C:\01", "kk????.txt")
        'результат
        Dim ss As String = ""
        If fileNames.Count > 0 Then ss = String.Join(vbCrLf, fileNames)
        MsgBox(ss)

Const root As String = "D:\Temp"
' Если кол-во цифр всегда равно 3, то можно использовать маску kk???
Dim fileName As String = Directory.EnumerateFiles(root, "kk*"). _
       FirstOrDefault(Function(n) Regex.IsMatch(Path.GetFileName(n), "^kk\d+$"))
If fileName IsNot Nothing Then
    File.Delete(fileName)
End If