TextBox выделающий по двойному клику слово между точками - VB

Формулировка задачи:

Работаю в Access, там очень удобно сделано, например если из поле адреса типа 'г.Курильск и тд' нужно скопировать город, то двойным кликом на слове Курильск получаем его выделение и дальше ctrl+c. В стандартном же текстбоксе на VB сделано по китайски, по двойному клику город выделяется вместе с 'г.' Что посоветуете?

Решение задачи: «TextBox выделающий по двойному клику слово между точками»

textual
                            Листинг программы 
                        

                            ....
If intDopPos > 0 Then
        Text1.SelStart = intDopPos
        Text1.SelLength = Abs(intSelLength - intDopPos - 1)
End If
....
                        