Как я могу использовать функцию разделения в этом случае?

Question

У меня есть переменные в ячейках листа, такие как: "var_abc_c1", "var_def_c1", ... и я хочу поместить одну ячейку выше, чтобы иметь "abc", "def", то есть привести то, что находится в второе разделение текста, разделенное "_".

Я использую «split» для этого, но он работает не очень хорошо. Можете ли вы помочь мне, пожалуйста?

Sub test 
  Dim LString As String
  Dim LArray() As String
  Dim m As Integer

    For m = 3 To 6
       LString = ActiveWorkbook.ActiveSheet.Cells(2, m).Value
       LArray() = Split(LString, "_")
       LArray(2) = ActiveWorkbook.ActiveSheet.Cells(1, m).Value
       Debug.Print LArray(2) 
    Next m
end sub