Public Function getLogSichTag(ByVal strSuch As String, ByVal strServer As _
    String) As String
    getLogSichTag = Nothing
 
    '---- Einlesen der Datei -----
    Dim fs As FileStream = File.OpenRead(strSuch)
    Dim sr As New StreamReader(fs)
    Dim read As String = sr.ReadToEnd
    sr.Close()
    ' -----------------------
    Dim r As String = strServer & "\-\D{2,4}"
    Dim mc As MatchCollection = Regex.Matches(read, r)
 
    For Each m As Match In mc
      Dim r1 As String = "\-\D{2,4}"
      Dim mc1 As MatchCollection = Regex.Matches(m.ToString(), r1)
 
      For Each m1 As Match In mc1
        getLogSichTag = Replace(m1.ToString, "-", "")
 
      Next
    Next m
 
  End Function