Extract word or words within a cell full of text

This is a UDF (User Defined Function) which has to be installed in a standard code module of your workbook (Alt+F11 to open VB Editor. Right-click on workbook in Project Explorer window on the left. Select Insert and then Module. Paste the code in the empty panel that opens on the right).

Function ExtractExp(Cell As Range) As String
    ' 01 May 2018
    
    Const Criterium As String = "exp"           ' not case sensitive
                                                ' but return all-caps
    Dim Fun As String                           ' function return value
    Dim Txt As String, Num As Integer
    Dim n As Integer
    
    Txt = Cell.Value
    Do
        n = InStr(1, Txt, Criterium, vbTextCompare)
        If n = 0 Then Exit Do
        Txt = Trim(Mid(Txt, n + Len(Criterium)))
        If IsNumeric(Left(Txt, 1)) Then _
           Fun = Fun & UCase(Criterium) & CStr(Val(Txt)) & ", "
    Loop
    
    n = Len(Fun)
    If n Then Fun = Left(Fun, n - 2)
    ExtractExp = Fun
End Function

In your worksheet, call the function like any of Excel's built-in functions, for example

=ExtractExp($A2)

where A2 holds the text to be extracted from. Copy down as required.