Attribute VB_Name = "udf_fromSet"
'-------------------------------------------------------------------------------
'File         : udf_fromSet.bas
'               Copyright mpl by ERB software
'               All rights reserved
'               http://wiki.yaslaw.info/dokuwiki/doku.php/vba/functions/fromset
'Environment  : VBA 2007 +
'Version      : 1.0.0
'Name         : fromSet
'Author       : Stefan Erb (ERS)
'-------------------------------------------------------------------------------
Option Explicit

'/**
' * Splittet ein Feld in Einzelteile und gibt dann den entsprechenden Wert zurück
' * Ist sehr gut geeignet um aus Queries zuzugreifen
' *
' * @example: "cdef" = fromSet(1, "ab cdef gh j klm")
' *
' * @param  Int     Index   Wert der gewählt werden soll. Index beginnt mit 0
' * @param  String  Text    Text der gesplittet werden soll
' * @param  String  delemiter   Trennzeichen um den Text zu splitten
' * @return String  Extrahiert Teil
' */
Public Function fromSet(ByVal index As Integer, ByVal text As String, Optional ByVal delemiter As String = " ") As String
    Dim parts() As String:     parts = Split(text, delemiter)
    If (index <= UBound(parts)) Then
        fromSet = parts(index)
    Else
        fromSet = vbNullString
    End If
 
End Function