Public sub feldwerte(ByVal wert, ByVal platz)
'dim wert, platz ', rBm
   if not IsNull(wert) then '= True Then
         msgbox wert 'hier: Ausnahmefehler aufgetreten Code: 800200009 Quelle: ( 
         ' null) 
         wert = CStr(wert)
      else
         msgbox wert
         wert = "emety"
   end if
 
   platz.InsertBefore(wert)
 
end sub

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell