Private Sub CmdCrearCarpeta_Click()
   MkDir ("c:\Mi_Carpeta")
End Sub

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
'Dentro del timer se detectará cuando se pulse una tecla, en este caso las de _
operaciones...
Private Sub Timer1_Timer()
Dim Tecla As String 'Acá guardamos la tecla
Dim X As Integer
 
    'Si se presiono una tecla...
    If GetAsyncKeyState(106) = -32767 Then
        Tecla = ObtenerTecla(106) 'Verificamos que tecla es...
        MsgBox "Presionaste " & Tecla 'mostramos en pantalla la tecla pulsada
        DoEvents
    End If
 
     If GetAsyncKeyState(107) = -32767 Then
        Tecla = ObtenerTecla(107)
        MsgBox "Presionaste " & Tecla
        DoEvents
    End If
 
     If GetAsyncKeyState(109) = -32767 Then
        Tecla = ObtenerTecla(109)
        MsgBox "Presionaste " & Tecla
        DoEvents
    End If
 
     If GetAsyncKeyState(110) = -32767 Then
        Tecla = ObtenerTecla(110)
        MsgBox "Presionaste " & Tecla
        DoEvents
    End If
 
     If GetAsyncKeyState(111) = -32767 Then 'si se ha pulsado una tecla la APi devuelve -32737
        Tecla = ObtenerTecla(111) 'Llamamos a la función obtenertecla y la almacenamos en Tecla
        MsgBox "Presionaste " & Tecla
        DoEvents
    End If
End Sub
 
Private Function ObtenerTecla(X As Integer) As String
    'Si se presionó uno de los botones del mouse, salimos de la función, no me _
    interesa en este caso... :-P
    If X = 1 Or X = 2 Or X = 4 Then
        Exit Function
    End If
 
    'seleccionando el caso dependiendo de la tecla pulsada...
    Select Case X
        Case 106 'VK_MULTIPLY
            ObtenerTecla = "*"
        Case 107 'VK_NUMPADADD
            ObtenerTecla = "+"
        Case 110 'VK_NUMPADDECIMAL
            ObtenerTecla = "."
        Case 111 'VK_NUMPADDIVIDE
            ObtenerTecla = "/"
        Case 109 'VK_SUBSTRACKT
            ObtenerTecla = "-"
    End Select
End Function