source: Option Explicit
  Dim txt
  txt = InputBox("Test #8 - Enter text:", "Input")
  MsgBox "Test #8 - You entered: " & txt
target: Add-Type -AssemblyName Microsoft.VisualBasic
  Option Explicit
  
  $txt = [Microsoft.VisualBasic.Interaction]::InputBox("Test #8 - Enter text:", "Input")
  [Microsoft.VisualBasic.Interaction]::MsgBox "Test #8 - You entered: " + $txt