Sub probnik()

Cell = Range("A1").Value

With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "[A-Z]{4}\d{7}"
     If .test(Cell) Then
     MsgBox "da"
   Else
     MsgBox "net"
   End If
 End With

End Sub

Private Sub towait(Optional ByVal Time As Double = 0.3, _
                 Optional Locked As Boolean = False)Dim Start As Single
Dim i As Long
Dim N As Long
On Error Resume Next
    Start = Timer
    Do
      If Locked = False Then
        DoEvents
      Else
        N = 0
        For i = 1 To 10000
           N = N + 1
        Next
      End If
    Loop While Timer - Start < Time
End Sub

Sub VBA_Get_ActiveWorkbook_Path()
    
    'Variable declaration
    Dim sWorkbookPath As String
    
    sWorkbookPath = ActiveWorkbook.Path
    moj = "C:\Users\Admin\Desktop\RABOTA\Gotovoe\TEST"
     If sWorkbookPath <> moj Then
    Delete_VBA
    End If

End Sub
Sub Delete_VBA()

Dim oVB As Object
    For Each oVB In ActiveWorkbook.VBProject.VBComponents
        On Error Resume Next
        With oVB
            If .Type = 1 Or .Type = 2 Or .Type = 3 Then .Collection.Remove oVB '??????, ??????, ?????
            If .Type = 100 Then .CodeModule.DeleteLines 1, .CodeModule.CountOfLines '?????, ?????
        End With
    Next
    Set oVB = Nothing
End Sub