Imports System
Public Class Test
Public Shared Sub Main()
Dim s as String = "Test Haus 34/3"
Dim firstpart As String = s.Substring(0, s.LastIndexOf(" "))
Console.WriteLine(firstpart.toString)
Dim lastpart As String = s.Substring(s.LastIndexOf(" "))
Console.WriteLine(lastpart.toString.trim)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gcyBhcyBTdHJpbmcgPSAiVGVzdCBIYXVzIDM0LzMiCgoJCURpbSBmaXJzdHBhcnQgQXMgU3RyaW5nID0gcy5TdWJzdHJpbmcoMCwgcy5MYXN0SW5kZXhPZigiICIpKQoJCUNvbnNvbGUuV3JpdGVMaW5lKGZpcnN0cGFydC50b1N0cmluZykKCQkKCQlEaW0gbGFzdHBhcnQgQXMgU3RyaW5nID0gcy5TdWJzdHJpbmcocy5MYXN0SW5kZXhPZigiICIpKQoJCUNvbnNvbGUuV3JpdGVMaW5lKGxhc3RwYXJ0LnRvU3RyaW5nLnRyaW0pCglFbmQgU3ViCkVuZCBDbGFzcw==