If InStr(1, Cells(i, 12).Value, ")") = 0 Or (InStr(1, Cells(i, 12).Value, ")") = 0 And InStr(1, Cells(i, 12).Value, "(") <> 0) Then
Cells(i, 16).Value = Clear
Else
Cells(i, 16).Value = Mid(Cells(i, 12).Value, InStr(1, Cells(i, 12).Value, "(") + 1, InStr(1, Cells(i, 12).Value, ")") - InStr(1, Cells(i, 12).Value, "(") - 1)
End If