Excel 2007 : How I implement a code?

What are you trying to do?

Would "Text to Columns" not be what you are after?

The think is I put the code in the macro and is look like this.

Sub Macro1()
'
' Macro1 Macro
'

'
Function SplitText(str As String, iPart As Byte, iMaxChars As Integer) As String
    
'  ______________________________________________________________________________
' |                                                                              |
' |  Wim Gielis                                                                  |
' |  [email protected]                                                   |
' |  06/09/2007, revised 06/10/2007                                              |
' |  Custom function to split text in parts. Words are not broken, and you       |
' |         can specify the maximal number of characters in each part            |
' |  Also on http://www.wimgielis.be                                             |
' |______________________________________________________________________________|
    
    
    Dim arrWords As Variant
    Dim iWordCounter As Integer
    Dim j As Integer
    Dim iPartCounter As Integer
    Dim sConcatTemp As String
    
    If iPart < 1 Then
        SplitText = "Part number should at least be 1"
        Exit Function
    End If
    
    SplitText = ""
    
    If str <> "" Then
    
        str = Trim(str)
        str = Replace(Replace(str, Chr(32), " "), Chr(160), " ")
        str = Replace(str, "  ", " ")
        
        arrWords = Split(str)
        ReDim Preserve arrWords(UBound(arrWords) + 1)
        arrWords(UBound(arrWords)) = "a" 'dummy to avoid an error message later on
        
        iPartCounter = 1
        j = 0
        
        Do While iPartCounter <= iPart
            iWordCounter = 0
            sConcatTemp = ""
            
            Do While Len(sConcatTemp) - 1 <= iMaxChars And j + iWordCounter < UBound(arrWords)
                sConcatTemp = sConcatTemp & " " & arrWords(j + iWordCounter)
                iWordCounter = iWordCounter + 1
            Loop
            
            If Len(sConcatTemp) - 1 > iMaxChars Then iWordCounter = iWordCounter - 1
            
            If iPartCounter = iPart Then
                If Len(sConcatTemp) - 1 > iMaxChars Then
                    SplitText = Trim(Left(sConcatTemp, Len(sConcatTemp) - Len(arrWords(j + iWordCounter))))
                Else
                    SplitText = Trim(sConcatTemp)
                End If
            End If
            
            iPartCounter = iPartCounter + 1
            
            If j + iWordCounter = UBound(arrWords) Then Exit Function
            
            j = j + iWordCounter
        Loop
    End If
End Function
Application.Goto Reference:="Macro1"
End Function

Result: Compile error: Expected End Sub

All codes that I found on the internet and I want to implement give me the same error.
Can be a excel error?

I found the code on the google. The guy who made it said if I use it I could split the paragraph from A1 in other specific cells.
I have the code, I know what it does. The problem is, how I use it?

Function SplitText(str As String, iPart As Byte, iMaxChars As Integer) As String
    
'  ______________________________________________________________________________
' |                                                                              |
' |  Wim Gielis                                                                  |
' |  [email protected]                                                   |
' |  06/09/2007, revised 06/10/2007                                              |
' |  Custom function to split text in parts. Words are not broken, and you       |
' |         can specify the maximal number of characters in each part            |
' |  Also on http://www.wimgielis.be                                             |
' |______________________________________________________________________________|
    
    
    Dim arrWords As Variant
    Dim iWordCounter As Integer
    Dim j As Integer
    Dim iPartCounter As Integer
    Dim sConcatTemp As String
    
    If iPart < 1 Then
        SplitText = "Part number should at least be 1"
        Exit Function
    End If
    
    SplitText = ""
    
    If str <> "" Then
    
        str = Trim(str)
        str = Replace(Replace(str, Chr(32), " "), Chr(160), " ")
        str = Replace(str, "  ", " ")
        
        arrWords = Split(str)
        ReDim Preserve arrWords(UBound(arrWords) + 1)
        arrWords(UBound(arrWords)) = "a" 'dummy to avoid an error message later on
        
        iPartCounter = 1
        j = 0
        
        Do While iPartCounter <= iPart
            iWordCounter = 0
            sConcatTemp = ""
            
            Do While Len(sConcatTemp) - 1 <= iMaxChars And j + iWordCounter < UBound(arrWords)
                sConcatTemp = sConcatTemp & " " & arrWords(j + iWordCounter)
                iWordCounter = iWordCounter + 1
            Loop
            
            If Len(sConcatTemp) - 1 > iMaxChars Then iWordCounter = iWordCounter - 1
            
            If iPartCounter = iPart Then
                If Len(sConcatTemp) - 1 > iMaxChars Then
                    SplitText = Trim(Left(sConcatTemp, Len(sConcatTemp) - Len(arrWords(j + iWordCounter))))
                Else
                    SplitText = Trim(sConcatTemp)
                End If
            End If
            
            iPartCounter = iPartCounter + 1
            
            If j + iWordCounter = UBound(arrWords) Then Exit Function
            
            j = j + iWordCounter
        Loop
    End If
End Function

Ok, let me put it in another way.
I have a code.(doesn't matter what it does).
Where in excel I put codes?

Thank you for the earlier answer.
I attached a picture. This is a standard module?