im a As Variant
 
  s = "AnnA"
  a = Split(UCase(s), "A")
  MsgBox "Anzahl=" & CStr(UBound(a))

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)