Sub WWW()
  Dim i&, znac$, tkt$, edo$, fin$, drv$
  Dim mes$, vp$, pp$, den$, god$
  tkt = Cells(2, 1) & " "
  'Определяем месяц
  If InStr(tkt, " янв.") Then mes = "01"
  If InStr(tkt, " февр.") Then mes = "02"
  'и так далее
  
  'Выбираем вид приказа
  If InStr(tkt, "Приказ ИД") Then edo = "EDO"
  If InStr(tkt, "ФинД") Then fin = "FinDo"
  If InStr(tkt, "Директива") Then drv = "D"
  'и так далее
  
  'Выбираем вид пересмотра
  If InStr(tkt, "ПА") Then vp = "RA"
  'и так далее
  
  'Выбираем порядок приказа
  If InStr(tkt, "I") Then pp = "1"
  'и так далее
  
  'Выбираем день и год
  For i = 1 To Len(tkt)
    If InStr(1, "1234567890,", Mid(tkt, i, 1)) <> 0 Then
       znac = znac & Mid(tkt, i, 1)
    Else
       If Len(znac) = 1 Then den = "0" & znac
       If Len(znac) = 2 Then den = znac
       If Len(znac) = 4 Then god = Mid(znac, 3, 2)
       znac = ""
     End If
   Next
   'складываем в кучу в нужном прядке
   MsgBox god & mes & den & edo & vp & fin & drv & pp
End Sub