ayuda con un list

[manedf]

Que tal !!
Tengo un list con tres opciones que son: Basico, Plus y Premiere y tengo una caja de texto. Lo que quiero es que cuando seleccionen en la lista por ejemplo Plus automaticamente se ponga el precio correspondiente en la caja de texto.
Yo habia puesto lo siguiente pero esta super mal, NO FUNCIONA.

Private Sub Command4_Click()
Dim Basico, Plus, Premiere As Integer
If List1.Text = "Basico" Then
Text14.Text = 1000
ElseIf List1.Text = "Plus" Then
Text14.Text = 2000
Else
Text14.Text = 3000
End If
End Sub

Muchas gracias por su ayuda anticipadamente.