追加

    Set reLabel = NewRe("^\s*[" & strIDC & "]+:\s*$")