文字分割

Dim tmpv As Variant

tmpv = Split(tmpv, "--")