Public Declare Function ReadFileEx Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal nNumberOfBytesToRead As Long, lpOverlapped As Long, ByVal lpCompletionRoutine As Long) As Long
Public Const STD_ERROR_HANDLE = -12&
Public Const STD_INPUT_HANDLE = -10&
Public Const STD_OUTPUT_HANDLE = -11&
Dim sRequest As String
sRequest =VBA.Space(10)
ReadFileEx GetStdHandle(STD_INPUT_HANDLE), sRequest, 10, 0, ByVal 0&
Debug.Print sRequest