VBA Code to read particular format

[mahiT]

Hello Everyone,

I am new here and its my first post

Please help me for a VBA code to read particular format like Indian Vehicle Registration number (Ex- KA 09 AC 1254) when typed in a input box/ textbox it should give a warning like 'Type the correct Number' or 'The Registration number given is not valid'

Waiting for your help.

 

[mole999]

you can create something that is pattern matched, but you need to demonstrate all the valid patterns before doing that

 

[mahiT]

you can create something that is pattern matched, but you need to demonstrate all the valid patterns before doing that

But How to do pattern match?? Please give some example so I have an idea and Thanks for the reply

 

[Rick Rothstein]

I believe this function will do what you want (I had to read online what an Indian Vehicle Registration number could look like)... just pass the text in your TextBox into it and display its results in a MessageBox (or elsewhere) or include it in an If..Then test (the function returns one of these results... "Valid", "Invalid" or ""Invalid State or Union Territory Code!").

Function IsRegValid(S As String) As String
  Dim X As Long, Parts() As String
  Const States = ",AN,AP,AR,AS,BR,CG,CH,DD,DL,DN,GA,GJ,HR,HP,JH,JK,KA,KL," & _
                 "LD,MH,ML,MN,MP,MZ,NL,OD,PB,PY,RJ,SK,TN,TR,TS,UK,UP,WB,"
  IsRegValid = "Invalid"
  If S Like "[A-Za-z][A-Za-z] #* ####" Then
    Parts = Split(S)
    If InStr(States, "," & Parts(0) & ",") Then
      If UBound(Parts) > 2 Then
        If Len(Parts(2)) > 0 And Parts(2) Like Replace(String( _
                    Len(Parts(2)), "X"), "X", "[A-Za-z]") Then
          IsRegValid = "Valid"
        End If
      Else
        IsRegValid = "Valid"
      End If
    Else
      IsRegValid = "Invalid State or Union Territory Code!"
    End If
  End If
End Function