Dim strText As String = "lakfkaslfkadfa 8:4//afdöaksjfas"
Dim strErgebnis As String = ""
 
Dim arr1() As String = strText.Split("/")
Dim arr2() As String = arr1(0).Split(" ")
 
strErgebnis = arr2(UBound(arr2))
 
MessageBox.Show(strErgebnis)

EALA FREYA FRESENA