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