This should work

Sub testing()

Dim description
Dim A As Variant
Dim X
Dim J

A = Array("JOY", "COKE", "FANTA", "SPRITE")

For J = 0 To 3
If InStr(Range("B29").Value, A(J)) > 6 Then Exit For
Next J

description = Right(Range("Parameter!C6").Value, 3) & "-" & Range("B24").Value
& A(J)

End Sub