Visual Basic - Borrar

El evento seria que al presionar un item de un listbox aparezca en un textbox el item pero sin los últimos tres caracteres. ¿Como sería el código?
Muchas gracias.

sería algo así:

Private Sub List1_Click()
Dim item As String

item = List1.List(List1.ListIndex)
Text1.Text = Left(item, Len(item) - 3)
End Sub