Imports System
Public Class Test
Public Shared Sub Main()
Dim full As String = "a11cd"
Dim withoutSpaces As String = full.Replace(" ", "")
Dim firstHalf As String = withoutSpaces.SubString(0, withoutSpaces.Length - 3)
Console.WriteLine(full)
Console.WriteLine(withoutSpaces)
Console.WriteLine(firstHalf)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gZnVsbCBBcyBTdHJpbmcgPSAiYTExY2QiCgkJRGltIHdpdGhvdXRTcGFjZXMgQXMgU3RyaW5nID0gZnVsbC5SZXBsYWNlKCIgIiwgIiIpCgkJRGltIGZpcnN0SGFsZiBBcyBTdHJpbmcgPSB3aXRob3V0U3BhY2VzLlN1YlN0cmluZygwLCB3aXRob3V0U3BhY2VzLkxlbmd0aCAtIDMpCgkJQ29uc29sZS5Xcml0ZUxpbmUoZnVsbCkKCQlDb25zb2xlLldyaXRlTGluZSh3aXRob3V0U3BhY2VzKQoJCUNvbnNvbGUuV3JpdGVMaW5lKGZpcnN0SGFsZikKCUVuZCBTdWIKRW5kIENsYXNz