Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
For cntr = 1 To Len(TheLetters)
Test = Mid(TheLetters, cntr, 1)
Select Case Test
Case "C"
cCounter = cCounter + 1
Case "D"
dCounter = dCounter + 1
Case "E"
eCounter = eCounter + 1
Case "O"
oCounter = oCounter + 1
Case Else
'problem
End Select
Next cntr
For cntr = 1 To Len(TheLetters)
Test = Mid(TheLetters, cntr, 1)
cCounter = IIf(Test = "C", cCounter + 1, cCounter)
dCounter = IIf(Test = "D", dCounter + 1, dCounter)
eCounter = IIf(Test = "E", eCounter + 1, eCounter)
oCounter = IIf(Test = "O", oCounter + 1, oCounter)
Next cntr