VBA利用正则提取中文

Function 提取中文(str As String) As String
    Set regEx = CreateObject("vbscript.regexp")
    With regEx
        .Global = 1
        .Pattern = "[Function RemoveNarrow(str As String) As String"
    Set regEx = CreateObject("vbscript.regexp")
    With regEx
        .Global = 1
        
        .Pattern = "[^\u4e00-\u9fff]"
       提取中文 = .Replace(str, "")
    End With
    End With
End Function


Sub test()
    X = Application.CountA(Worksheets("SHEET3").Range("A:A"))
    For I = 2 To X
      Worksheets("SHEET3").Cells(I, 7) = 提取中文(Worksheets("SHEET3").Cells(I, 3))
      Next   
      
    
End Sub