Updating A Text Box To Scroll

OK, this one is doing my head in!

I'm using aleb's most handy code from this thread (http://www.access-programmers.co.uk/forums/showthread.php?t=100636) to have a multi select list box that determines recipients of an e-mail from the list.

I thought it would be handy to have it make a list that updates at the same time, showing what e-mail addresses will be sent. Here's the code I used:

Private Sub lstMailTo_Click()
Dim varItem As Variant
Dim strList As String
Dim strElist As String

Me.cmdEmail.Enabled = True
With Me!lstMailTo
If .MultiSelect = 0 Then
Me!txtSelected = .Value
Else
For Each varItem In .ItemsSelected
strList = strList & .Column(0, varItem) & ";"
strElist = strElist & .Column(0, varItem) & vbNewLine Next varItem
If strList = "" Then
Me!txtSelected = strList
Me.cmdEmail.Enabled = False
Me!txtEadd = ""
Else
strList = Left$(strList, Len(strList) - 1)
Me!txtSelected = strList
Me!txtEadd = strElist
End If
End If
End With
End Sub

The code works, but when the text box becomes filled, you cannot see the bottom of the list.

How can I set it to know this and automatically put a scroll bar in, so the addresses can be reviewed before hitting send?
I was interested to see if I could do something similar, but instead have a label display just the last item selected. I tried strElist = .Column(0, varItem) and setting the label caption to strElist, but this only displayed the first item selected. How would I do this?

Many thanks in advance for any assistance!