Date: 09/26/07 (Code WTF)    Keywords: no keywords

Что делать, если не знаешь о существовании регэкспов? Применять смекалку :)

Function dstStr(srcStr)
	Dim i,dstStr,srchStr,s
	dstStr=""
	srchStr="абвгдеёжзийклмнопрстуфхцчшщъыьэюя" + _
		"АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" + _
		"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" + _
		"1234567890*#,.-:?!+_)(%$&@=/\][}{' "+ _
		vbCrLf
	For i=1 to Len(srcStr)
		s=mid(srcStr,i,1)
		If InStr(1,srchStr,s)>0 Then dstStr=dstStr+s
	Next
End Function

Source: http://community.livejournal.com/code_wtf/105251.html