Определение последних символов в строке

[Александр Волков]

В функции в отчетах Вертикали нужно взять символы после точки из атрибута.
Беру атрибут:
  set obozntd = p_dse.vrAttrByName("obozntd")
Пишу в переменную его значение
  str = obozntd.vrValue

Пример атрибута: "ИД.01161.00231"
Дальше мне нужно определить числа после второй точки. Число символов может быть разным.

Я в Basic разбираюсь плохо.

[#programmer]

https://msdn.microsoft.com/ru-ru/library/dd789093.aspx

На VBA будет выглядеть так:

Dim str As String
    str = "SomeFile.txt"
    Dim lastpos As Integer
    Dim slength As Integer
    Dim substr As String
    lastpos = InStrRev(str, ".")
    slength = Len(str)
    MsgBox "str =" & str & vbNewLine & "InStrRev Output =" & lastpos & "Len=" & slength
    If (lastpos <> 0) Then substr = Right(str, slength - lastpos)
    MsgBox substr

[Александр Волков]

Огромное спасибо!