VB 6 und AD-Wandler TLC 549

Hallo,
wer von euch kann diese Prozedur interpretieren und mir sagen, was sich bei diesem Programm abspielt ?
Denn ich soll es erklären können, aber habe es nicht drauf  
 Vielleicht kennt sich einer von euch sehr gut aus
Sub ADU_TLC549(ADUDigital As Integer, ADUAnalog As Single)
    Dim Bit As Integer
    TXD 1                  
    DTR 0  
    RTS 1  
    DELAYUS 17                            
    RTS 0    
    DELAYUS 2                              
    ADUDigital = 0                              
    For Bit = Aufloesung - 1 To 0 Step -1            
        ADUDigital = ADUDigital + CTS * 2 ^ Bit    
        DTR 1                                      
        DELAYUS 2    
        DTR 0     '
       Next Bit   '
    ADUAnalog = ADUDigital * URef / (2 ^ Aufloesung)        
End Sub


Und was sagt diese Prozedur aus ?


Sub COMInitialisierung()
    DTR 1: RTS 1: TXD 1: DELAY 100
    DTR 0: RTS 0
    cmdMessStart.Enabled = True
    ADU_TLC549 UeDigital, UeAnalog  
    ADU_TLC549 UeDigital, UeAnalog  
End Sub

Danke schon mal im vorraus