Dim j As Integer
Dim varStr As String
varStr = strIn
While j < Len(varStr)
j = j + 1
Select Case Asc(Mid(varStr, j, 1))
Case 32 To 126
' do nothing
Case Else
' get rid of everything else:
varStr = Left(varStr, j - 1) & Mid(varStr, j + 1)
If j > 1 Then j = j - 1
End Select
Wend
AlphaNumOnly = varStr
End Function
Function AlphaNumOnly(strIn As String) As String
Dim j As Integer
Dim varStr As String
varStr = strIn
While j < Len(varStr)
j = j + 1
Select Case Asc(Mid(varStr, j, 1))
Case 32 To 126
' do nothing
Case Else
' get rid of everything else:
varStr = Left(varStr, j - 1) & Mid(varStr, j + 1)
If j > 1 Then j = j - 1
End Select
Wend
AlphaNumOnly = varStr
End Function