For Bitnummer = 7 To 0 Step -1 'mein zeichen
If zeichen.bitnummer = 0 Then Bit0 Else Bit1
Next
Die Zeit, die der µC für die Schleifenbefehle braucht, mußt du aber schon bei den 833 µS mitrechnen.

Ein timer im Baudraten-Bit-Takt wäre da schon sehr hilfreich.