Dim ko As Variant
  Dim txt As String
  txt = "ertz;12345;;12:34;1.234;-27"
  ko = Split(txt, ";")
  MsgBox (UBound(ko) + 1)

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)