How to validate a format of an alphanumeric string

[PrateepKaraval]

Hi Folks,
I have solved my problem.
Though I will not be able to explain myself, I took a piece of code and experimentally made it plug in with my scenario.
Here it is:

Code:

Dim Format, matches, regexp
Set Myp = Browser("Title:=.*").Page("Title:=.*")
Set Myo = Description.Create()
    myo("name").Value = "case"
    RC = Myp.WebTable(myo).RowCount
    RCstop = RC - 1
    Environment.Value("RRC") = RC - 3
    Environment.Value("Counter") = 0
    Environment.Value("FCounter") = 0

    For i = 3 to RCstop
        Format = Myp.WebTable(myo).GetCellData(i,3)
    Call RegExpTest("\w.*\s\/\s.*", format)

        If Format = Environment("check") Then
                Environment.Value("Counter") = Environment("Counter") + 1
            Else
                Environment.Value("FCounter") = Environment("FCounter") + 1
                Reporter.ReportEvent micFail, "Row " & i, "The Loan Number " & Format & " data format is incorrect."
        End If
    Next
Call fn_StepResult(Environment("Counter"),Environment("RRC"),0,1,"Step 10.1","Pass: All of the " & Environment("RRC") & " records have been validated to check for correct MSP client / Loan # format and are as expected.","Fail: In the Loan Number column out of " & Environment("RRC") & "records, " & Environment("FCounter") & " records have the incorrect MSP client # / Loan Number format, for more details view the actual results to see what the loan number are.")


Public Function RegExpTest (patrn, strng)
   Dim regEx, Match, Matches, retstr  
   Set regEx = New RegExp  
   regEx.Pattern = patrn  
   regEx.IgnoreCase = True  
   regEx.Global = True  
   Set Matches = regEx.Execute(strng)   '

  For Each Match in Matches  
     RetStr = Match.Value
   Next
Environment.Value("check") = RetStr
End Function

Please feel free to come up with the best answer, I am still open to any suggestions, thanks

-Prateep K.
Banglore, India