在这种情况下如何使用分割功能？

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