выделение подстроки

[Rustamel]

Помогите кто может, нужно выделить подстроку между первой и второй точкой в тексте ячейки Excel. Как написать код в VBA ???
Какая функция отвечает за выделение подстроки??

[EducatedFool]

txt="строка.содержащая.точки" : res = split(txt,".")(1): msgbox res

[Rustamel]

Sub SetPartColor()
Dim P1 As Long, P2 As Long, S As String
S = ActiveCell.Text
P1 = InStr(1, S, ".")
If P1 Then
P2 = InStr(P1 + 1, S, ".")
If P2 Then
ActiveCell.Characters(P1+1, P2 - P1 - 1).Font.ColorIndex = 5
else
msgbox"Нет второй точки в ячейке!"
End If
else
msgbox"Нет ни одной точки в ячейке!"
End If
End Sub

[Rustamel]

как тут заменить чтобы текст брался не с активной ячейки, а с ячейки А1 ,или как сделать чтобы при запуске процедуры ячейка А1 стала активной автоматически???

[SAS888]

Для ячейки "A1":

If Len([A1]) - Len(Replace([A1], ".", "")) < 2 Then MsgBox "Мало точек!" Else MsgBox Split([A1], ".")(1)