A validation need --- Excel VBA (Macros)

As you posted this in the excel macro section I'll post a macro solution as well

Option Explicit

Sub Cheker()
Dim cell As Range

For Each cell In Range("A2:A6")

 If Mid(cell, 1, 2) = "V-" And Mid(cell, 3, 1) Like "[A-Za-z)]" And IsNumeric(Mid(cell, 4, 4)) And Mid(cell, 4, 4) > 0 And Len(cell) = 7 Then
  cell.Interior.Color = vbRed
 End If
 
 Next

End Sub

Alf