这个代码要怎么改才成？

先看段代码：

Private Sub ShortCutKey()

    Dim ctrl As Control
    For Each ctrl In Me.Controls
    If ctrl.ControlType = acComboBox Then
        Dim i, j As Integer
        j = ctrl.ListCount
        For i = 1 To j
            Select Case ctrl
            Case "i"
                ctrl.Value = ctrl.ItemData(i - 1)
            End Select

        Next
     End With

End Sub

Private Sub 性别_AfterUpdate()

'    Select Case Me.性别.Value
   
 '   Case "1"
  '      Me.性别.Value = "男"                           '利用case可以为控件设置相当于快捷键效果的便利，  现在我想就是能不能利用for 语句判断，当输入1时，组合框的值对应

                                第一行的值，以此类推，直到组合框的最大行数？还有能不能做成模块，直接在需要的控件更新后事                                                           件中调用？
   ' Case "2"
    '    Me.性别.Value = "女"
    'Case "3"
     '   Me.性别.Value = "其它"
'
 '   End Select
   
    Call ShortCutKey
   
End Sub