Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
   (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long
 
Private Const LB_FINDSTRINGEXACT As Long = &H1A2
 
Private Sub Command1_Click()
   Dim n As Long
   n = LoadListen(Text1.Text, Text2.Text)
   If n > 0 Then
     List3.List(List3.ListCount - 1) = n
   End If
End Sub
 
Private Function LoadListen(ByVal sLB1 As String, ByVal sLB2 As String) As Long
   Dim n As Long, RVal As Long
 
   List1.AddItem sLB1
   List2.AddItem sLB2
   List3.AddItem " "
   n = 0
   RVal = SendMessage(List1.hwnd, LB_FINDSTRINGEXACT, -1, ByVal sLB1)
 
   If RVal > 0 And RVal < List1.ListCount - 1 Then
     n = Val(sLB2) + List2.List(RVal)
   End If
 
 
   LoadListen = n
End Function