エクセルの関数の作成の御依頼です。

Function カット(a As String) As String
    If Len(a) - Len(Replace(a, "-", "")) <= 2 Then
        カット = a
        Exit Function
    End If
    
    b = InStr(a, "-")
    c = InStr(b + 1, a, "-")
    b = InStr(c + 1, a, "-")
    
    カット = Left(a, b - 1)

End Function

ユーザー関数なので 標準モジュールのほうに記述してください。

わざわざVBAを介さなくとも
３番目の"-"までを取り出す程度でしたら何とかなりそうなので
普通のワークシート関数でやる方法を回答いたします。

元の文字列が入っているセルを"A1"とすると、

=IF(
　ISERROR(LEFT(A1,FIND("-",A1,1+FIND("-",A1,1+FIND("-",A1,1)))-1)),
　A1,
　LEFT(A1,FIND("-",A1,1+FIND("-",A1,1+FIND("-",A1,1)))-1)
)

で、関数の入ったセルに表示できます。
３番目の"-"より左側の文字列を拾っているだけです。
(３個以下だとエラーを検出してセル全体を返しています。)

ワークセルを使って良いのなら

LEFT(A1,FIND("-",A1,1+FIND("-",A1,1+FIND("-",A1,1)))-1)

をくくりだせば、記述が重複しないで簡単です。

１つ目のセル指定が面倒だったら

=IF(ISERROR(LEFT(
A1,FIND("-",
A1,1+FIND("-",
A1,1+FIND("-",
A1,1)))-1)),
A1,LEFT(
A1,FIND("-",
A1,1+FIND("-",
A1,1+FIND("-",
A1,1)))-1))

の行頭のA1を変えてペーストしてくださいね。