A personal repository of random information in compensation for a fatigued biological computer
Breaded IT » MS Access / SQL Server reminders » Excel: Split function wrapper
Option Explicit
Function SplitString(target, delimitor, nth)
' Returns the nth delimited element from a string,
Dim x As Variant
x = Split(target, delimitor)
If nth > 0 And nth - 1 <= UBound(x) Then
SplitString = x(nth - 1)
Else
SplitString = ""
End If
End Function