How to Trim a string

Originally Posted by kvsrinivasamurthy

After this line

'Need to trim 'TheContent' here before passing to excel cell. Lets say 'TheContent' has a value "After Pickup $5,000 for drop to home". I need to pass only $5,000

Pl add this code

Dim T As Integer
Dim M As Variant

M = Split(TheContent, " ")

For T = 0 To UBound(M)
If InStr(1, M(T), "%") > 0 or InStr(1, M(T), "$") > 0 Then
TheContent = M(T)
Exit For
End If
Next T

Before this line

range.Cells(2, 9) = TheContent

This will extract words containing % or $.

Wow..that's simply awesome. Its working great. Thank you so much for your help. I'm going to mark this thread as solved.