Case Statement

[adelitza]

hi.
i have a text file and i whant to see if the informantion from it is the same with the one from an excel file.And i whant to use case statment for this.
For example:
ana: red
beth :blue
i read line by line the text and i whant to verify if red is the same word for ana as it is in excel and so on.

this is whant i did so for, but i don' t know ho to use corectly "Case Statement"

Code:

"Const forReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile ("C:\test_new.txt", ForReading, True, -1)
sfile = objFile.ReadAll
Lines = Split(sfile, vbCrLf)
msgbox Lines(0)
For i=1 to UBound(Lines)
   If (Lines(i) <> " ")Then
     if(inStr(Lines(i), ":") <> 0) then
    cuvant = Split(Lines(i),": ")
       Dim Verify
        [color=#FF0000]Verify = cuvant(i)[/color]   ->i don't know if called the function correctly
        [color=#FF4500]Select Case Verify[/color]
        Case "Address"
        wait 5
    If (cuvant(0) = "rand") Then                    DataTable.ImportSheet"C:\temp\excel.xls","excel","Global"
    For  j=1 to DataTable.GetRowCount
    DataTable.SetCurrentRow i
'    Wait 0.5
    If (cuvant(1) =  DataTable.Value("Rand")) then     
Reporter.ReportEvent  micPass , "a", "Passed"                              
       else                                    Reporter.ReportEvent  micFail , "b", "Failed"
    End If
end select
    Next
    End If
'    End Select
    End if
    End If
    next
"