Instr Mid Replace の組み合わせでしょうか。 下記例の関数では、最初の括弧に囲まれた文字列(括弧含む)の排除をします。(複数の組があるとか、入れ子になっているとかだともっと工夫が要るでしょう) Function DelBreace( stringVar As String ) As String Dim sBrace As Integer Dim eBrace As Integer sBrace = InStr( stringVar, "(" ) eBrace = InStr( sBrace, stringVar, ")" ) DelBreace = Replace( stringVar, Mid$( stringVar, sBrace, eBrace-sBrace + 1 ), "" ) End Function