Несоответствие типов в функции разделения

Question

мой фрагмент кода довольно короткий и простой, но я все еще не могу заставить его работать.

Dim feld As Variant
Dim Num As Variant
Dim strNum As String
Dim Bank As String

Bank = IIf(DKB.Value = True, "DKB", IIf(DB.Value = True, "DB", IIf(Kasse.Value = True, "Kasse", "BfS")))

strNum = Sheets(Bank).Range("B11").Value
feld = Split(strNum, "_")

Значение strNum - «202_DKB_02».

Если я попробую чтобы запустить его, я получаю ошибку несоответствия типа на последнем шаге. Что не так?