Visual Basic - No puedo con el listbox

Hola:
Haber si me hago entender: cargo un listbox con los registros, deseo que el primer registro se seleccione al recibir el foco el list, pero que me espere para moverme con las teclas de cursor y con un ENTER seleccionar el deseado para que luego pase al text2.
Ojalá y no esté muy complicado y me ayuden. Gracias de antemano. Paco

tengo este código:

Private Sub List1_Click() '''''''''''acá en cuanto muevo el puntero con las teclas de cursor, el programa sigue.
Productos
nom = List1.Text
Rs.MoveFirst
Do While Not Rs.EOF
If num >= MSFlexGrid1.Rows Then MSFlexGrid1.AddItem ""
If Rs!nombre = nom Then
MSFlexGrid1.TextMatrix(num, 0) = num
MSFlexGrid1.TextMatrix(num, 1) = Rs!nombre
MSFlexGrid1.TextMatrix(num, 3) = Rs!precio_venta
MSFlexGrid1.TextMatrix(num, 4) = Rs!p_sugerido
MsgBox "Existencias en el list tiene : " & Rs!existencias
nombprod = Rs!nombre
pventa = Rs!precio_venta
psug = Rs!p_sugerido
Exit Do
End If
Rs.MoveNext
Loop
Text1.Text = nom
List1.Visible = False
End Sub

Private Sub List1_GotFocus() ''' cuando recibe el foco, selecciona el primer elemento pero al mover el cursor con las teclas, sale y pasa al text2
Me.List1.ListIndex = 0
End Sub

Private Sub List1_LostFocus()
Text2.SetFocus ''' aqui deberia pasar al text2
End Sub

Yo pondría el código en el evento KeyPress:
Private Sub List1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
nom = List1.Text
'...
End If
End Sub