Imports System

Public Module Module1

    Public Sub StringDemos()

        Dim s as string = console.ReadLine()

        Dim s2, s3 as string

        'make s lower case'

        s2 = s.ToLower()

        print(s2)

        s3 = s.ToUpper()

        print(s3)

        s.Substring(0,2)

        print(s)

    End Sub

    Public Sub Print(s)

        console.WriteLine(s)

    End sub

    Public Sub Main()

        StringDemos

    End sub

End Module