;vars als string schicken:

Dim Variablen(6)

senden$ = Einheit1a + "." + Einheit2a  + "." + Einheit3a  + "." + Einheit4a  + "." + Einheit5a  + "." + Einheit6a


For i = 1 To 6
pos=Instr (senden$, ".",pos+1)
Variablen(i) = Mid(senden,start+1,pos)
start = pos
Next

For i = 1 To 6
Print variablen(i)
Next

;TAG COMMANDS:
;-------------- tags are used as dynamic type variables
Function getValue$(tag$,value$) ;returns string,int,or float in string format from a certain value of the tag
   tagPosition=Instr(tag$,value$+":")+len(value$+":")
   If tagPosition>+len(value$+":") Then
      DebugLog value$
      Return Mid(tag$,tagPosition,Instr(tag$,"|",tagPosition)-(tagPosition))
   end if
End Function

Function setValue$(tag$,value$,setto$) ;if the value already is in the tag, the tag will be changed And returned
                              ;else, the value will be added and the new tag will be returned
   tagPosition=Instr(tag$,value$+":")+len(value$+":")
   If tagPosition>+len(value$+":") Then
      oldvalue$=Mid(tag$,tagPosition,Instr(tag$,"|",tagPosition)-(tagPosition))
      Return left(tag$,tagPosition-1)+setto$+right(tag$,len(tag$)-tagposition-len(oldvalue$)+1)      
   Else
      Return tag$+"|"+value$+":"+setto$
   End if
End Function
;--------------