Foro de elhacker.net

if txt like ("[A-Z]") or txt like ("[a-z]") or txt like ("[0-9]") then
.... empezar a buscar en cada letra o por pequeños grupos.....
end if

Sub ReplaceNoAscii(StrSpec As String)
          Dim i%

  For i = 1 To 255
    If (i > vbKeyA And i < vbKeyZ) And _
       (i > 97 And i < 122) Then
      StrSpec = Replace$(StrSpec, Chr$(i), "[" & i & "]")
    End if
  Next
End Sub

Function Reemplazar(Cdato as string)
Dim Valido as boolean, Resultado as string, Caractar as string
for x%=1 to len(Cdato)
Caracter=mid(Cdato,x%,1) /extraer el caracter
Valido=Comprobar(Caracter) 'comprobar el caracter
if validothen
Resultado=Resultado & Caracter 'añadir el caracter al resultado
else
Resultado=Resultado & [ & asc(Caractar) & "]" 'añadir el ascii al resultado
endif
next x%
Reemplazar=Resultado 'devolver el resultado
end function

Function Valido(Car as string)
Car=Ucase(Car) 'pasar a manúsculas
if asc(car)>="A"  and asc(Car)<="Z" then 'si es letra
Valido = true
else
Valido=false
endif

if not isnumeric(Car) or not Valido then 'si no es número
Valido=false
endif
return