_で分割したいけどスプリットで分割すると後の-まで分割されちゃうよ。。って人のために

Function SplitFirstUnderscore(ByVal text As String) As Variant
    Dim splitPos As Integer
    splitPos = InStr(text, "_")  ' 最初のアンダースコアの位置を見つける

    If splitPos > 0 Then
        ' アンダースコアが見つかった場合、文字列を分割する
        SplitFirstUnderscore = Array(Left(text, splitPos - 1), Mid(text, splitPos + 1))
    Else
        ' アンダースコアがない場合、元の文字列をそのまま返す
        SplitFirstUnderscore = Array(text, "")
    End If
End Function