Dim Str As String = "QWERTY12345456asdfghZXcvBNM"
Dim Str2 As String = "25"
Dim Str3 As String = "AA(B),CC(D),EE(F)"
Console.WriteLine(Str.Substring(0, 1))
Console.WriteLine(Str.Substring(2, 5))
Console.WriteLine(Str.Substring(Str.Length - 1))
Console.WriteLine(Str.Substring(Str.Length - 3, 3))
Console.WriteLine(Str.IndexOf("a"))
Console.WriteLine("a" & Str2.PadLeft(5, "0"))
Console.WriteLine(Str.Replace("RTY1", "aaa"))
Dim Strs() As String
Strs = Str3.Split(",")
Console.WriteLine(UBound(Strs))
Console.WriteLine(Strs(0))
Console.WriteLine(Strs(1))
Console.WriteLine(Str3.Split(",")(2))