[Zounds]

Καλησπέρα,

    Sub Break_String()
    Dim WrdArray() As String
    Dim text_string As String
    text_string = Cells(3, "C")
    
    
    WrdArray() = Split(text_string)
    For i = LBound(WrdArray) To UBound(WrdArray)
      strg = strg & vbNewLine & "Part No. " & i & " - " & WrdArray(i)
    Next i
    MsgBox strg
    
    
    'με αυτο εμφανίζεται η τελευταια λέξη σε messagebox του κελιου c3
    MsgBox WrdArray(UBound(WrdArray))
        
        

    End Sub