Я например использую собственную функцию в Модуле
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Function Piece(chars As String, delimiter As String, position As Long)
If position < 1 Then
Piece = ""
Exit Function
End If
ReDim Where( 0 To position + 1 ) As Long
Where( 0 ) = 1
current = 1
Length = Len(delimiter)
For Count = 1 To position
Where(Count) = InStr(current, chars, delimiter)
If Where(Count) = 0 Then Where(Count) = Len(chars) + 1
current = Where(Count) + Len(delimiter)
Next Count
If position = 1 Then
Length = 0
End If
If (Where(position) = Where(position - 1 )) Then
back = ""
Else
back = Mid(chars, (Where(position - 1 ) + Length), (Where(position) - Where(position - 1 ) - Length))
End If
Piece = back
End Function
И потом с любого места (до) после "делиметера" извлекаю часть строки...
1.
Num="321.12"
MsgBox Piece(Num,".", 2 )
.....
