■

http://q.hatena.ne.jp/1233530197

この質問でユーザー定義関数を作ってしまえばVBAからsplitを使えるなと思って作ってみます。
標準モジュールに貼り付けて実行してください。

Function mySplit(s As String, i As Integer) As String
    Dim tmp
    tmp = Split(s, "【")
    If i > 0 And i <= UBound(tmp) Then
        mySplit = "【" & tmp(i)
    Else
        mySplit = ""
    End If
End Function

この関数は次のようになっています。

=mySplit(検索範囲,何番目か)

例えば、A1セルに「【肉】100ｇ【野菜】50ｇ【水】30ｇ」が入っている場合

=mySplit(A1,1)

とすれば、「【肉】100ｇ」が返ります。