A Convert Text to Title Case Function for Business Central

I realized that there seems to not have a conversion to title case function in Business Central codes, nor have I seen it online. So, sharing is caring 😀

    procedure ConvertTitleCase(var InputText: Text): Text
    var
        TextList: List of [Text];
        TextValue: Text;
        OutputString: Text;
    begin
        OutputString := '';
        TextList := InputText.Split(' ');

        foreach TextValue in TextList do begin
            OutputString += UpperCase(CopyStr(TextValue, 1, 1)) + LowerCase(CopyStr(TextValue, 2)) + ' ';
        end;

        exit(OutputString.Trim());
    end;

Have tested this in the Business Central cloud, please let me know if there are any bugs! Thank you!