VBA Versions of my "Get Field" and "Get Reverse Field" formulas

[Rick Rothstein]

While it is more efficient to use the formulas posted in these two articles when parsing delimited text...

Get Field from Delimited Text String

Get "Reversed" Field from Delimited Text String

there are times when you might want to do so inside your own VB code. Now, there is nothing hard about doing this, you would simply use the Split function, and that is all I am doing here, but I thought it might be useful to combine the two functionalities of the above two cited articles into a single function that can be called as needed, so, here is that function....

Function GetField(TextIn As String, Delimiter As String, FieldNumber As Long, _
                  Optional FromFront As Boolean = True, _
                  Optional CaseSensitive As Boolean = False) As Variant
  Dim Fields() As String
  Fields = Split(TextIn, Delimiter, , Abs(CaseSensitive))
  If FromFront Then
    GetField = Fields(FieldNumber - 1)
  Else
    GetField = Fields(UBound(Fields) - FieldNumber + 1)
  End If
End Function

The function has three required arguments and two optional arguments. The first required argument is the text string that you want to parse, the second required argument is the text (one or more characters) to use as the delimiter and the third required argument is the field number that you want the function to return (first field is numbered 1, second field is numbered 2, etc.). The optional fourth argument specifies whether the fields should be counted from the front (left to right) or the back (right to left) of the text being parsed... the default for this argument is True meaning count the fields from the front, set it to False to have the function count fields from the back. And the optional fifth argument controls whether the delimiter should be case sensitive or not (True for case sensitive, False for not case sensitive).