When the form loads, use the RegisterHotKey API function to install the hotkey (in this example, Alt-F10). Then subclass to watch for the WM_HOTKEY message.

Private Sub Form_Load()
    ' Register the hotkey.
    If RegisterHotKey(hWnd, HOTKEY_ID, _
        MOD_ALT, VK_F10) = 0 _
    Then
        MsgBox "Error registering hotkey."
        Unload Me
    End If

    ' Subclass the TextBox to watch for
    ' WM_HOTKEY messages.
    OldWindowProc = SetWindowLong( _
        hWnd, GWL_WNDPROC, _
        AddressOf NewWindowProc)
End Sub

' Look for the WM_HOTKEY message.
Public Function NewWindowProc(ByVal hWnd As Long, ByVal Msg _
    As Long, ByVal wParam As Long, ByVal lParam As Long) As _
    Long
Const WM_NCDESTROY = &H82
Const WM_HOTKEY = &H312

    ' If we're being destroyed,
    ' restore the original WindowProc and
    ' unregister the hotkey.
    If Msg = WM_NCDESTROY Then
        SetWindowLong _
            hWnd, GWL_WNDPROC, _
            OldWindowProc

        UnregisterHotKey hWnd, HOTKEY_ID
    End If

    ' See if this is the WM_HOTKEY message.
    If Msg = WM_HOTKEY Then Form1.Hotkey

    ' Process the message normally.
    NewWindowProc = CallWindowProc( _
        OldWindowProc, hWnd, Msg, wParam, _
        lParam)
End Function

' We got the hotkey.
Public Sub Hotkey()
    txtTimes.Text = txtTimes.Text & _
        Time & vbCrLf
    txtTimes.SelStart = Len(txtTimes.Text)

    If Me.WindowState = vbMinimized Then Me.WindowState = _
        vbNormal
    Me.SetFocus
End Sub