David Crewe Ltd

Function GetSubstringValue(str As String, delimiter As String, part As Integer) As String
 Try
  Dim tmpARR As String()
  tmpARR = Split(str, delimiter)
  GetSubstringValue = tmpARR(part - 1)
 Catch ex As Exception
  GetSubstringValue = str
 End Try
End Function