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