Cercare la seconda occorrenza di una lettera fra tre o più

Se è necessario cercare la seconda occorrenza di una lettera fra tre o più uguali all'interno di una stringa, si potrà utilizzare la funzione InStr() come nell'esempio che segue.

Poniamo il caso di trovare all'interno di una parola la seconda occorrenza della lettera "a":

Public Sub Main()

 Dim s As String = "gambasiano"
 Dim b As Byte
 
  b = InStr(s, "a", InStr(s, "a") + 1)

  Print b
   
End

Il risultato in console sarà coerentemente: 5