' This function will remove any non A-Z or a-z values (Case is NOT changed) Public Function StripEm(str2bStripped As String) Dim strResult, strChar As String Dim intCurChar As Integer For intCurChar = 1 To Len(str2bStripped) ' Define what is to be walked strChar = Mid(str2bStripped, intCurChar, 1) ' Walk the param ' Check to see if its a letter if so add it to the result If Asc(UCase(strChar)) >= 65 And Asc(UCase(strChar)) <= 90 Then strResult = strResult & strChar 'add to the result End If Next 'loop StripEm = strResult 'Return our value End Function
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams