Exel VBA Array - Несоответствие типов

Question

Я пытаюсь передать значение двух ячеек в виде объединенной строки в массив adata, но получаю ошибку несоответствия. Если я использую только aData = rData.Value2, макрос работает нормально. Не уверен, как это исправить.

Set ws = x_bs
    sSearchCol = "C"
    sfind = ThisWorkbook.Names("dr_co").RefersToRange(1, 1)
    Set rFindText = ws.Columns(sSearchCol).Find(sfind, ws.Cells(ws.Rows.Count, sSearchCol), xlValues, xlWhole, , xlNext)
    If rFindText Is Nothing Then GoTo errHandler
    Set rFindBlank = ws.Range(sSearchCol & 1, rFindText).Find(vbNullString, rFindText, xlValues, xlWhole, , xlPrevious)
    Set rData = ws.Range(rFindBlank.Offset(1), rFindText.Offset(-1))

    If rData.Cells.Count = 1 Then
        ReDim aData(1 To 1, 1 To 1)
        aData(1, 1) = rData.Value2 & " - " & rData.Offset(0, 2).Value2
    Else
        aData = rData.Value2 & " - " & rData.Offset(0, 2).Value2
    End If