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.
Public Function basAlphNum(MystrIn As String) As String
Dim tmpStr As String
Dim tmpChr As String
Dim Idx As Integer
'Usage:
'? basAlphNum("nlakwjheo8q734yrb*&(^%kh32b ku7*(9")
'nlakwjheo8q734yrbkh32bku79
For Idx = 1 To Len(MystrIn)
tmpChr = Mid(MystrIn, Idx, 1) 'Get chr
If (IsNumeric(tmpChr)) Then 'Check for Numeric
tmpStr = tmpStr & tmpChr 'Numeric, add to temp
Else
If ((tmpChr >= "a" And tmpChr <= "z") _
Or _
(tmpChr >= "A" And tmpChr <= "X")) Then
tmpStr = tmpStr & tmpChr 'Numeric, add to temp
End If
End If
Next Idx
basAlphNum = tmpStr
End Function