If Val(Text1.Text)>0 then 
With ListView1.ListItems(cLng(Text1.Text))
.SubItems(2) = "Starte..."
End With
end if

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)