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

Dim xxx As String = "dfgkldhfgk 8:4 //sfgasgasg"
 
Dim startindex As Integer = xxx.IndexOf(" "c)
If startindex = -1 Then
   MsgBox("Kein Space")
Else
   Dim lastindex As Integer = xxx.IndexOf("//", startindex)
   If lastindex = -1 Then
      MsgBox("Kein // hinter Space gefunden")
   Else
      Dim subxxx As String = xxx.Substring(startindex, lastindex - _
        startindex).Trim
   End If
End If

    Private Function TeilString(s As String) As String
 
        Dim a As String() = Split(s)
        a(0) = " "
        a(UBound(a)) = " "
        TeilString = Join(a).Trim
 
    End Function
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        MsgBox(TeilString("dfgkldhfgk 8:4 //sfgasgasg"))
    End Sub

Dim line As String = "dfgkldhfgk    8:4    //sfgasgasg"
Dim query As IEnumerable(Of String) = line.Split(New Char() {" "c, "/"c}).Where( _
  Function(x) x.Trim <> String.Empty)
Debug.Print(query(1))

Dim line As String = "dfg  kld  hfgk    8:4  //sfga  sgasg  "
 
Dim bl As Integer = line.IndexOf("//")
 
Dim start As Integer = bl
Dim charfound As Boolean = False
 
Do
    start -= 1
    charfound = charfound Or line(start) <> " "c
Loop While start > 0 And Not (line(start) = " "c And charfound)
 
Dim substr As String = line.Substring(start, bl - start).Trim

Imports System.Text.RegularExpressions
Module Module1
  Sub Main()
    Dim sourcestring as String = "dfg  kld  hfgk    8:4  //sfga  sgasg  "
    Dim re As Regex = New Regex("\d:\d")
    Dim mc as MatchCollection = re.Matches(sourcestring)
    Console.WriteLine(mc(0).Groups(0).Value)
  End Sub
End Module

Dim strText As String = "akfa asfakdfa akdjfölak asöfkjölaksdf" & _
  "asdfaökjlsjkdflöajldfjlaösjdflajksfd afdkjaskjfökasf 8:4//akjfölkasf" & _
  "aslkjfalskjdfasdfkdflakjfd asdfkajfdaf"
Dim strErlaubt As String = "0123456789:"
 
Dim strErgebnis As String = ""
 
For Each element As Char In strText
 If InStr(strErlaubt, element) > 0 Then
  strErgebnis = strErgebnis + element
 End If
Next
 
MessageBox.Show(strErgebnis)

EALA FREYA FRESENA