Imports System

Public Module Module1

    Public Sub Main()       

        ' Common String functions in VB 

        Dim MyString as String 

​

        Do

            Console.WriteLine("Enter a word (between 4 and 10 chars)")

            MyString = Console.ReadLine()

        Loop Until MyString.Length >= 4 And MyString.Length <= 10

        Console.WriteLine("1. Number of chars =  " & MyString.Length)

        Console.WriteLine("2. UPPERCASE =  " & MyString.ToUpper)

        Console.WriteLine("3. lowercase =  " & MyString.ToLower)

        Console.WriteLine("4. Substring(1st position = 1,length = 3) is " & MyString.Substring(1,3))  ' Note 1st letter is at position 0 

​

        ' Show each letter in turn 

        for i = 0 to MyString.Length - 1

            Console.WriteLine(MyString.Substring(i,1))

        next i

    End Sub

End Module