Как избежать несоответствия типов с помощью функции разделения в Excel VBA?

Я получаю ошибку времени выполнения 13 (несоответствие типов) при попытке использовать функцию разделения в Excel VBA. Я читал об этом ряд статей, но даже когда я использую пример из документации Microsoft (https://docs.microsoft.com/en-us/office/vba/language/reference/user- interface-help/split-function) я получаю ту же ошибку. Вот упрощенный код, который я пытаюсь заставить работать:

Sub SplitTest2()

Dim strSliceMe As String
Dim arrSliced() As Variant

strSliceMe = Range("A1").Value ' Cell A1 contains "Hello, world!"
arrSliced() = Split(strSliceMe, ", ")

Debug.Print arrSliced(1)

End Sub

Когда я запускаю это, я получаю несоответствие типов. После отладки я перехожу к этой строке:

arrSliced() = Split(strSliceMe, ", ")

Что я упустил?