Public Sub RegisterOn()    
 
    Dim arRegisterOn(24) As Byte
    Dim i As Integer
 
    arRegisterOn(0) = &H2
    arRegisterOn(1) = &H0
    arRegisterOn(2) = &H1E
    arRegisterOn(3) = &H1
    arRegisterOn(4) = &H0
    arRegisterOn(5) = &H0
    arRegisterOn(6) = &HC
    arRegisterOn(7) = &H0
    arRegisterOn(8) = &H0
    arRegisterOn(9) = &H0
    arRegisterOn(10) = &H1
    arRegisterOn(11) = &H0
    arRegisterOn(12) = &H0
    arRegisterOn(13) = &H0
    arRegisterOn(14) = &H0
    arRegisterOn(15) = &H0
    arRegisterOn(16) = &H0
    arRegisterOn(17) = &H0
    arRegisterOn(18) = &H0
    arRegisterOn(19) = &H0
    arRegisterOn(20) = &H0
    arRegisterOn(21) = &H0
    arRegisterOn(22) = &H2C
    arRegisterOn(23) = &H3
 
    'senden der Register-Anforderung
    bWait = True
    Form1.MSComm1.Output = arRegisterOn
    bWait = False
end sub