'How to read my keyboard input in Visual Basic

it's the first time i touch Visual Basic and i'm trying to read my keyboard to brake my loop and finish the program. Any help will be welcomed.

Do
  Set wshshell = wscript.createobject("Wscript.shell")
  wscript.Sleep 10000
  wshshell.Sendkeys "{W}"
  If My.Computer.Keyboard.ShiftKeyDown Then
    Exit Do
  End If
loop


Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source