次のコントロールに移動するようにします。
リストボックスの「KeyPress」イベントでEnterキーが押されたらSendKeysメソッドで「TAB」キーを押す処理をします。
Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 And Not ListBox1.Value = "" Then
Application.SendKeys ("{TAB}")
End If
End Sub