Dim i as long
Dim Wert_T as String 
REM Wert_T ist ein  temporärer Wert
Dim Wert(5) as string
 
For i = 0 To 5 Step 1
      wert_T = MSComm1.Input      
     Wert(i)=HEX$(val(wert_T))
 Next 'i

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)