Danke!
Danke funktioniert ohne Probleme!
Hier nochmal der endgültige Code: ;)
Dim monat, wert_byte, tag(30), out(30)
Dim byte1, byte2, byte3, byte4
Dim k, n
Set monat = HMIRuntime.Tags("akt_01_Januar_Roh")
monat.Read(1)
wert_byte = monat.Value
For n = 0 To 30
k = n * 4
byte1 =...