Testare symbol con VB6

[GianCN]

Ho un problema; dovrei effettuare il test su una stringa per verificare se contiene (o non contiene) caratteri Symbol (ovvero tutti i caratteri che hanno un codice ASCII da 33 a 64).
Esiste la possibilità di utilizzare qualche funzione tipo IsNumeric che segnali se la stringa contiene campi symbol ?
Vorrei evitare di testare carattere per carattere la stringa e controllare se è nel range di caratteri ASCII.
Grazie

[ciro78]

potresti usare

inStr

controlla se una stringa è contenuta in un'altra

[GianCN]

Come faccio però nella InStr a specificare che voglio testare i caratteri ASCII da 33 a 64 ?
Esiste un modo nella InStr di indicare una sertie di caratteri da testare ?

[ciro78]

lo metti in un ciclo for ad esempio

Dim var As String
Dim ciccio As String
ciccio = "PAPERINO"
For k = 33 To 64
    var = Chr$(k)
    a = InStr(1, ciccio, var)
    MsgBox a
Next k

se il carattere è contenunto nella stringa a assume un valore diverso da zero. in pratica nè indica la posizione nella stringa ciccio(che è la stringa in cui fai la ricerca).

io ho messo msgbox per visualizzare la posizione tu puoi metter il codice che vuoi se a <> 0

ciao