Option Explicit

Private Sub cmdKey_Click(Index As Integer)

    'TextBoxにフォーカスを移します
    Text1.SetFocus
    
    'それぞれ、目的にあったキーを打ちます
    Select Case Index
        Case 0 To 25
            'A〜Zまでのキーを打ちます
            'SendKeys cmdKey.Caption
            'でもいいかもしれません
            SendKeys Chr(65 + Index)
        Case 26
            'スペースキーを打ちます
            SendKeys " "
        Case 27
            'バックスペースキーを打ちます
            SendKeys "{BS}"
        Case 28
            'エンターキーを打ちます
            SendKeys "{ENTER}"
        Case 29
            '上矢印キーを打ちます
            SendKeys "{UP}"
        Case 30
            '左矢印キーを打ちます
            SendKeys "{LEFT}"
        Case 31
            '右矢印キーを打ちます
            SendKeys "{RIGHT}"
        Case 32
            '下矢印キーを打ちます
            SendKeys "{DOWN}"
    End Select
End Sub