by Phil Campbell (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 10th July 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Reverses the sequence of arguments in a delimited string.
Dim i As Integer
InvertArguments = ""
strStart = 1
For i = 1 To 4
strdelim = InStr(strStart, str, delimiter)
InvertArguments = Mid(str, strStart, IIf(strdelim = 0, 99, strdelim - strStart)) & IIf(strStart = 1, "", delimiter) & InvertArguments
strStart = strdelim + 1
Next i
End Function