Присвоение значения полю

[IraPr]

Здравствуйте!Помогите пожалуйста!
Мне необходимо в форме присваивать значение Основного изделия-до первой точки(если таковая имеется) полю Изделие(которое является полем со списком-справочник) для продолжения ввода остальных символов.
Пример прилагаю!
Запуталася уже, думаю что скорее всего проблема с полем со списком(но мне оно небходимо для возможности выбора уже существующих изделий).
Помогите пожалуйста!Заранее спасибо!

[IraPr]

Выкладываю для наглядности картинку, то что мне неоходимо сделать

[Woodlin]

IraPr, решение не моё, просто приспособлено для Ваших нужд.

Public Function GetExt() As String
On Error Resume Next
Dim Stroka As String
Dim lngCurrPos, lngLastPos As Long
Stroka = "1.4541234" ' Вместо значения Stroka подставь свое значение,
' которое надо обрезать до точки
Do
lngLastPos = lngCurrPos
lngCurrPos = InStr(lngLastPos + 1, Stroka, ".")
Loop Until lngCurrPos = 0
If lngLastPos <> 0 Then GetExt = Left$(Stroka, lngLastPos)
End Function

[IraPr]

Спасибо большое!

[R Dmitry]

Function thk(sp_str As String)
Dim a()
a = Split(sp_str, ".")
thk = a(0)
End Function

а так не проще?

[Woodlin]

R Dmitry ага, нет пределов совершенству