Imports System
Imports System.Collections
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim s1 As String = "abcd"
Dim s2 As String = "ABCD"
Dim s3 As String = "S3"
s3 = s3 & "Tail"
Dim s5 As String = String.Copy(s2) '
Console.WriteLine("s5 copied from s2: {0}", s5)
Console.WriteLine("String s3 is {0} characters long. ", _
s5.Length)
Console.WriteLine( )
Console.WriteLine("s3: {0}", s3)
Console.WriteLine("s3: ends with 3?: {0}", s3.EndsWith("3"))
Console.WriteLine( )
Console.Write("The first occurrence of 3 ")
Console.WriteLine("in s3 is {0}", s3.IndexOf("3"))
Dim location As Integer = s3.IndexOf("3")
Dim s10 As String = s3.Insert(location, "3")
Console.WriteLine("s10: {0}", s10)
Console.WriteLine( )
End Sub
End Class