Solved
Forum Discussion
jimsmith_1
11 years agoContributor
Sorry, that didn't paste very well...try this...
Function TrimInner(Str)
Dim WordArray, i
WordArray = Split(Str)
Str = ""
For i = 0 To UBound(WordArray)
If WordArray(i) <> "" Then Str = Str & WordArray(i) & " "
Next
TrimInner = Trim(Str)
End Function
Function TrimInner(Str)
Dim WordArray, i
WordArray = Split(Str)
Str = ""
For i = 0 To UBound(WordArray)
If WordArray(i) <> "" Then Str = Str & WordArray(i) & " "
Next
TrimInner = Trim(Str)
End Function
Related Content
Recent Discussions
- 6 hours agoMW_Didata
- 17 hours agod_gfleetwood92