Imports System

Public Module Module1

    Public Sub Main()

    Dim aString As String = “A String”

Dim bString As String

bString = aString.Substring(2,6)

Console.WriteLine(bstring)

​

Dim MyString As String = “Alphabetical”

Dim secondString As String = “Order”

Dim result As Integer

Result = String.Compare (myString, secondString)

Console.Writeline(result)

​

    End Sub

End Module