Solved: text box dependent on list box in userform

I have posted this @MrExcel but think I will get more help with an attachment www.mrexcel.com/forum/showthread.php?p=2265277#post2265277
I find it difficult to explain my problem but the attachment is well documented ... maybe you can have a look

Tried but does not work:

Code:

---

Private Sub ListBox1_Click()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim Rng As Range

If TextBox1.Value <> "" Then
    Set Rng = Workbooks("test.xls").Worksheets("Authors").Columns(2).Find(ListBox1.Value)
 If Not Rng Is Nothing Then
        TextBox1.Value = Rng.Offset(0, 3).Value
       
End If

End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

---

[vba]Private Sub ListBox1_Click()
Dim Rng As Range
Set Rng = Workbooks("test.xls").Worksheets("Authors").Columns(2).Find(ListBox1.Value)
If Not Rng Is Nothing Then
TextBox1.Value = Rng.Offset(0, 1).Value
End If
End Sub[/vba]

Thank you lucas ... perfect!