Dim matches As System.Text.RegularExpressions.MatchCollection
Dim match As System.Text.RegularExpressions.Match
Dim groups As System.Text.RegularExpressions.GroupCollection
matches = System.Text.RegularExpressions.Regex.Matches(docname, "\b.*\..*\.(.)\b") '*****-****: $1/$2 = tracker9864/rev6
'matches = System.Text.RegularExpressions.Regex.Matches(docname, "\b(.{7})(.{3}).*\b") 'NNNNNNRRR*: $1/$2 = tracker/9864
If matches.count>0 Then
 For Each match In matches
  groups = match.Groups ' parenthesis 1
  iProperties.Value("Project", "Revision Number") = groups.item(1).Value
  MsgBox("ÚSPĚCH - zapsána revize: " & groups.item(1).Value, OK, "REVIZE")
 Next
 Else
 MsgBox("Revize se nepovedla - zkus to opravit", OK, "REVIZE")
End If 

Vyměnit MSGBOXy za tyto:
Imports System.Threading.Tasks

Dim timeout = 0.5 ' secs - JAK DLOUHO M� B�T VID�NA
Dim msg As New Form() With { .Enabled = False }
Task.Delay(TimeSpan.FromSeconds(timeout)).ContinueWith(
  Sub(t) 
    msg.Close() 
  End Sub ,
TaskScheduler.FromCurrentSynchronizationContext())
MessageBox.Show(msg, "�chp�ch", "TITULEK")
'MessageBox.Show(msg, "ZDE JE TO CO CHCI ZD�LIT", "ZDE JE NADPIS ZPR�VY")
Jde to vůbec zkombinovat????