これだと大丈夫なんですけど
Const TEST = "a,b"
Dim strTemp() As String
Dim VarTemp As Variant

ReDim strTmp(2)
VarTemp = Split(TEST, ",")
strTemp = VarTemp


これだと駄目です
Const TEST = "a,b"
Dim strTemp(2) As String
Dim VarTemp As Variant

VarTemp = Split(TEST, ",")
strTemp = VarTemp


動的配列じゃないとうまく動かない理由分かる方いませんか?