对于符合RegEx要求的单元，为什么我的RegEx函数不返回“有效”？

Question

我创建的RegEx函数不会返回满足条件“有效”的单元格，它们显示为空白。 “无效格式”正在运行，因此我缺少某些内容。谢谢！

strPattern = "^[a-zA-Z0-9]{6}\.[a-zA-Z0-9]{5}\.[a-zA-Z]{2}\.\d{3}"

If strPattern = "^[a-zA-Z0-9]{6}\.[a-zA-Z0-9]{5}\.[a-zA-Z]{2}\.\d{3}" Then
    strInput = myRange.Value
    strReplace = "Valid"

    With regEx
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = strPattern
    End With

    If regEx.Test(strInput) Then
        ValidGIIN = regEx.Replace(strInpute, strReplace)
    Else
        ValidGIIN = "Invalid format"
    End If
End If

我希望符合模式的单元格填充为“有效”，但它们将填充空白

以下是我正在使用的数据的示例：

Data example