Sub BinGleicheLaenge(Bin1 As String, Bin2 As String)
 
    Dim temp_Long As Long
 
    temp_Long = Len(Bin1) - Len(Bin2)
    Select Case temp_Long
        Case Is < 0
            Bin1 = String(Abs(temp_Long), "0") & Bin1
        Case Is > 0
            Bin2 = String(temp_Long, "0") & Bin2
    End Select
 
End Sub

*greetz*
Tim
.
http://www.DotNetWorld.de