bei:

Dim Command(1) As Byte
Dim Reg_add(1) As Byte
Dim Reg_cont(1) As Byte

kannste Dir sowieso die "(1)" schenken
Variablennamen möglichst nicht doppelt verwenden