Split function to an array. Type mismatch error #13

Question

I have a string with multiple email addresses separated by semicolons and want to split them into separate values.

Dim RecipientArray() As Variant 'I've also tried as string
Debug.Print txtRecipients.Value
RecipientArray = Split(txtRecipients.Value, ";") 'error happens here
For i = 0 To UBound(RecipientArray)
    Debug.Print RecipientArray(i)
Next

Answer 1

制作RecipientArray一个普通的 Variant 而不是 Variant 数组。

'Dim RecipientArray() As Variant 'I've also tried as string
Dim RecipientArray As Variant