Die Initialisierung des USB macht normal der PC. Vom AVR wird dieser einfach wie eine UART angesprochen.
Wie so oft nur aus dem Kopf, sollte aber so gehen.
Code:
$baud = 19200 'für1.UART
$baud1 = 19200 'für 2. UART
dim b1 as byte
dim b2 as byte
Open "com2:" For Binary As #2 'für die 2. UART diese öffnen
'Beispiel um angekommenes der einen UART auf der anderen auszugeben. z.B. als Baudratenwandler
do
If Ischarwaiting() = 1 Then
   B2 = Inkey() 'Empfang auf UART 1
   Print #2 , chr(b2); ' Ausgabe auf UART 2
end if

If Ischarwaiting(#2) = 1 Then
   B1 = Inkey(#2) 'Empfang auf UART 2
   Print chr(b1); ' Ausgabe auf UART 1
end if
loop
end