Insertar caracteres ASCII o UNICODE (Cont)

This example inserts preset paragraphs at the cursor as the user presses Alt+1, Alt+2, etc.

Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim strMsg As String
    Dim strText As String
    
    If Shift = acAltMask Then
        Select Case KeyCode
        Case vbKey1
            strText = "Paragraph 1" & vbCrLf
        Case vbKey2
            strText = "Paragraph 2" & vbCrLf
        Case vbKey3
            strText = "Paragraph 3" & vbCrLf
        'etc for other paragraphs.
        End Select
        If InsertAtCursor(strText, strMsg) Then
            KeyCode = 0
        ElseIf strMsg <> vbNullString Then
            MsgBox strMsg, vbExclamation, "Problem inserting boilerplate text"
        End If
    End If
End Sub

No consigo entenderlo bien. Cuando lo ejecuto solo me da tiempo a pulsar la 

tecla alt, pero no puedo escribir nada a continuación.

Y aplica los valores KeyCode=18 / vbKey1=49 / vbKey2=50 / vbKey3= 51

¿Qué son estos campos y por qué aplica esos valores automáticamente?

¿Cómo escribo algo al pulsar alt, y cómo busco lo que he escrito en el Select Case?