lo metti in un ciclo for ad esempio

codice:
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