Visual Basic - Urgente...............

Amigos necesito su ayuda urgente
tengo que al elegir un item en un combobox salga una respuesta en un caja de texto ejemplo: si coloco en el combobox un nombre, que en el cuadro de texto aparezca un apellido....
ayudenme por fa.....

Alejandro:
Cualquier problema no dudes en enviarme un mail....

Private Sub Form_Load()
CmbNombre.AddItem "Nombre1"
CmbNombre.AddItem "Nombre2"
End Sub
Private Sub CmbNombre_Click()
Select Case CmbNombre.Text
Case "Nombre1": TxtApellido.Text = "Apellido1"
Case "Nombre2": TxtApellido.Text = "Apellido2"
End Select
End Sub