Isso pode ocorrer em varias situações. ´pois eu nunca saberei em que posição exata estará a palavra. Ex.

 

jdhfkjhfdhfkdjfhcidadeaoifadfhadfh

ou

twtwtwtwtwtwttwtwtwtwtwtcidademnmnhkhkhkh

 

Quero pegar a palavra cidade. a palavra nunca irá vir na mesma posição.

 

  Dim s As String, pos As Integer
  s = "Meu primeiro exemplo"
  pos = InStr(1, s, "primeiro")
  MsgBox pos

pos será igual a 5

Valeu, Obrigado.