populate textbox data when clicking one of the items in a listbox
<p>I have a listbox (for example: the data comes from <code>A4:A100</code> via rowsource in the properties menu)</p>

<p>If someone clicks the top item in the list box (cell <code>A4</code>) then in the textbox I would like to show whatever is in the cell next to it (cell <code>B4)</code>, the next textbox I would like to show whatever may be in cell <code>C4</code> etc...</p>

<p>This is new to me so please go easy with your terminology - So far I have this:</p>

<pre><code>Private Sub ListBox1_AfterUpdate()
Me.TextBox1.Value = Application.WorksheetFunction.VLookup(ListBox1.Value, Range("A1:B1"), 4, False)

End Sub
</code></pre>

<p>Where am I going wrong?</p>

<p><a href="https://i.stack.imgur.com/CnEFR.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/CnEFR.jpg" alt="CLICK HERE TO SEE THE PICTURE"></a></p>