m.Do "Start^GonTaxRu", Piece(DTPicker1.Value, ".", 1 ),PieceDTPicker2.Value, ".",  1 ), zor, J, Ret, Med, co
 .
 .

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