[
        ComVisible(true),
        Guid(RubberduckGuid.IDeclarationGuid),
        InterfaceType(ComInterfaceType.InterfaceIsDual)
    ]
    public interface IDeclaration
    {
        [DispId(1)]
        string Name { get; }
        [DispId(2)]
        Accessibility Accessibility { get; }
        [DispId(3)]
        DeclarationType DeclarationType { get; }
        [DispId(4)]
        string TypeName { get; }
        [DispId(5)]
        bool IsArray { get; }
        [DispId(6)]
        Declaration ParentDeclaration { get; }

Your result is: 30. You indicated that you had a good time.
Your result is: 30. You indicated that you did not have a good time.

         xmlns:codeExplorer="clr-namespace:Rubberduck.Navigation.CodeExplorer"
         xmlns:controls="clr-namespace:Rubberduck.UI.Controls;assembly="

dim fullStr as string
fullStr = cells(1,1).value
dim leftStr as string
leftStr = left(fullStr,30)
dim i as long
for i = 30 to 1 step -1
    if Mid(leftStr,i,1) = " " then
        cells(1,2).value = left(fullStr,i-1)
        cells(1,3).value = right(fullStr,len(fullStr)-i)
        exit for
    end if
next i

Public Function SplitOnLastSpaceOfFirst30Characters(ByVal value As String) As Variant
    Dim truncatedValue As String
    truncatedValue = Left(value, 30)

    Dim valueReversed As String
    valueReversed = VBA.Strings.StrReverse(truncatedValue)

    Dim positionOfLastSpace As Long
    positionOfLastSpace = InStr(1, valueReversed, " ")

    Const DelimitingChar As String = "|" 'Or whatever character is guaranteed not to be in the input string
    SplitOnLastSpaceOfFirst30Characters = Split(VBA.Strings.StrReverse(Application.WorksheetFunction.Substitute(valueReversed, " ", DelimitingChar, …