QB Program to remove vowels from a given string.

 'Remove the vowels from given word

Cls

Input "A word"; w$

For i = 1 To Len(w$)

    c$ = Mid$(w$, i, 1)

    d$ = UCase$(c$)

    If d$ <> "A" And d$ <> "E" And d$ <> "I" And d$ <> "O" And d$ <> "U" Then

        wv$ = wv$ + c$

    End If

Next

Print "Word without vowels is "; wv$

End