Возвращает аргумент из строки

Аргументы: strArgument - строка, intPosition - положение аргумента в строке
Назначение: Возвращает аргумент из специальным образом отформатированной строки
Возвращает: Аргумент

Public Function GetArgument(strArguments As String,intPosition As Integer) As String
On Error Resume Next
Dim intCounter As Integer
Dim iCurrPos As Integer
Dim strSeparator As String
Dim strCurrArg As String

GetArgument = ""
strSeparator = Mid(strArguments, 2, CLng(Left(strArguments, 1)))
strArguments = Mid(strArguments, CLng(Left(strArguments, 1)) + 2)
For intCounter = 1 To intPosition
  If strArguments = "" Then Exit Function
  iCurrPos = InStr(strArguments, strSeparator)
  If iCurrPos > 0 Then
      strCurrArg = Left(strArguments, iCurrPos - 1)
      strArguments = Mid(strArguments, iCurrPos + Len(strSeparator))
  Else
      strCurrArg = strArguments
      strArguments = ""
  End If
Next intCounter
GetArgument = strCurrArg
End Function

Формат строки:
1~Первый аргумент~Второй аргумент~Третий аргумент
где:
1-количество знаков в разделителе
~ - разделитель
Пример: Getargument("1'Первый'Второй",2) возвращает Второй