vbaでスネークケースをキャメルケースに変換するマクロ

Function SnakeToCamel(str As String) As String
    Dim parts() As String
    Dim i As Integer
    Dim result As String
    
    parts = Split(str, "_")
    result = LCase(parts(0)) ' 先頭は小文字のまま
    
    For i = 1 To UBound(parts)
        result = result & UCase(Left(parts(i), 1)) & LCase(Mid(parts(i), 2))
    Next i
    
    SnakeToCamel = result
End Function