次のコントロールに移動するようにします。

　リストボックスの「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