I have a string array and I am trying to modify each element, but I get a “type mismatch error”

Dim i As Integer
    
    Dim quotes() As String
    
    Dim str As String
    
    While TypeName(currentAppointment) <> "Nothing"
         
         ReDim Preserve quotes(0 To i) As String
         quotes(i) = currentAppointment.Subject
         
         quotes(i) = Split(quotes(i), "/") 'error in here
         
         i = i + 1
        Set currentAppointment = myAppointments.FindNext
    Wend

I don’t understand how this is a type mismatch? I have a string array, and doing string things to it…