Clipboard.Clear
Clipboard.SetText text1.SelText

text2.SelText = Clipboard.GetText()

dim x as Integer
x = Text1.Text

Private Function find(first, second)
pos = InStr(1, Text1.Text, first, vbTextCompare)
pos2 = InStr(1, Text1.Text, second, vbTextCompare)
start = pos + Len(first)
length = pos2 - start
Text1.SelStart = start
Text1.SelLength = length - 2
End Function

Option Explicit
Private Declare Function SendMessage Lib "User32" _
        Alias "SendMessageA" (byval _
        hWnd as Long, _
        byval wMsg as Integer, _
        byval wParam as string, _
        lParam as Any) as Long
 
Const LB_FINDSTRING = &H18F
 
Private Sub Form_Load()
 
    With List1
        .Clear
        .AddItem "18.5" 'or whatever you would like to add, whether from a file or database...
        End With
 
End Sub
 
Private Sub Text1_Change()
    List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, _
                      Text1, byval Text1.Text)
End Sub