Консоль вывод слов - VB

Формулировка задачи:

И так нужно следующие, надо в сделать консольную программу, которая будет выводить все слова из предложения, содержащие две подряд согласные буквы. Я на VBS написал скрипт, а вот с консолью пока еще парюсь не множк. Помогите так сказал портировать с VBS на консольный VB Ну разумеется мне нужен исходный код, а не просто программа, я буду оч. благодарен вам Вот собственно код на VBS

Dim b, str, vivod
str=trim(InputBox("Введите латинские слова"))
b= split(str, " ")
vivod = ""
 
for sl=0 to UBound(b)
 cur = 0
 for i=1 to Len(b(sl))
  bukva= mid (b(sl), i, 1)
  if instr("aeuyoi", bukva) <> 0 then
   cur = cur + 1
  end if
 next
 
 if cur=>2 then
  vivod = vivod + b(sl) + " "
 end if
next 
 
 MsgBox (vivod)

Решение задачи: «Консоль вывод слов»

textual
                            Листинг программы 
                        

                            Set Sinp=WScript.StdIn
Set Sout=WScript.StdOut
 
Do While Not SInp.AtEndOfStream
   S=Sinp.ReadLine
   Sout.WriteLine S
Loop
                        