Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function Splitem(TheString As String, _
Delim As String, _
ReturnIndex As Integer) As String
Dim s() As String
s = Split(TheString,Delim)
If ReturnIndex < 1 or ReturnIndex > UBound(s)+1 Then
Splitem = ""
Else
Splitem = s(ReturnIndex-1)
End If
End Function
Select Splitem([fld],"/",1) As Col1,
Splitem([fld],"/",2) As Col2,
Splitem([fld],"/",3) As Col3,
Splitem([fld],"/",4) As Col4,
etc.