Macro to bulk create Outlook rules from CSV file

I am new to Outlook VBA and have struggled for a day now to write a macro that creates rules from a CSV file in a shared mailbox with the trigger for Body or Subject in column 1 and the path to the folder to move the message to in column 2. I have the following code that runs OK but does not add any rules. Could someone please identify my errors?

PowerShell I cannot use due to organization's network restrictions.

Sub ImportRulesFromCSVTest()

Dim sharedMailboxName As String
sharedMailboxName = "email address removed for privacy reasons"

Dim olApp As Outlook.Application
Set olApp = Outlook.Application

Dim olNamespace As Outlook.NameSpace
Set olNamespace = olApp.GetNamespace("MAPI")

Dim olRecipient As Outlook.Recipient
Set olRecipient = olNamespace.CreateRecipient(sharedMailboxName)
olRecipient.Resolve

Dim olStore As Outlook.Store
Set olStore = olNamespace.GetSharedDefaultFolder(olRecipient, olFolderInbox).Store

Dim olRules As Outlook.Rules
Set olRules = olStore.GetRules

Dim csvFilePath As String
csvFilePath = "C:\Users\xyz\Test4.csv"

Open csvFilePath For Input As #1

Do While Not EOF(1)
    Line Input #1, csvLine

    Dim csvValues() As String
    csvValues = Split(csvLine, ",")
    
    If UBound(csvValues) = 2 Then
        trigger = csvValues(0)
        folderPath = csvValues(1)
        
        'Create rule
        Dim olRule As Outlook.Rule
        Set olRule = olRules.Create(trigger, olRuleClientOnly)
        
        'Set trigger condition
        Dim olRuleConditions As Outlook.RuleConditions
        Set olRuleConditions = olRule.Conditions
        
        Dim olSubjectCondition As Outlook.TextRuleCondition
        Set olSubjectCondition = olRuleConditions.BodyOrSubject
        olSubjectCondition.Text = Array(trigger)
        
        'Set exception exclude messages To (i.e. restrict rule to Cc and Bcc)
        Dim oToCondition As Outlook.ToOrFromRuleCondition
        Set oToCondition = oRule.olConditionNotTo
        With oToCondition
            .Enabled = True
            .Recipients.Add ("email address removed for privacy reasons")
            .Recipients.ResolveAll
        End With
        
        'Set move action
        Dim olRuleActions As Outlook.RuleActions
        Set olRuleActions = olRule.Actions
        
        Dim olFolder As Outlook.Folder
        Set olFolder = olStore.GetRootFolder.Folders(folderPath)
        
        Dim olMoveOrCopyRuleAction As Outlook.MoveOrCopyRuleAction
        Set olMoveOrCopyRuleAction = olRuleActions.MoveToFolder
        
        With olMoveOrCopyRuleAction
        .Enabled = True
        .Folder = olFolder
        End With
        
        olRules.Save
        
    End If
Loop

Close #1

MsgBox "Rules imported", vbInformation
End Sub