```vb
Function re(CellLocation As Range, RegPattern As String)
    Dim OutPutStr As String
    Dim RegEx As Object, RegMatchCollection As Object, RegMatch As Object
    
    Set RegEx = CreateObject("vbscript.regexp")
    With RegEx
        .Global = True
        .Pattern = RegPattern
    End With
    
    OutPutStr = ""
    Set RegMatchCollection = RegEx.Execute(CellLocation.Value)
    For Each RegMatch In RegMatchCollection
        OutPutStr = OutPutStr & RegMatch
    Next
    re = OutPutStr
     
    
End Function
```

```vb
Function CamelCase(str)
    Dim arr, i
    arr = Split(LCase(str), "_")
    For i = LBound(arr) + 1 To UBound(arr)
        arr(i) = UCase(Left(arr(i), 1)) & Mid(arr(i), 2)
    Next
    CamelCase = Join(arr, "")
End Function
```