ник: osmor
Не в качестве критики, просто соображения 
Не проверял, но мне кажется с ведущими нулями будет проблема...
если в функцию передается Long может лучше сначала
FirstNum AND SecondNum
а уже потом результат в ToBinary
свое
For i = 1 To LenX
If Mid$(FirstX, i, 1) = Mid$(SecondX, i, 1) Then Mid$(DecAnd, i, 1) = Mid$(FirstX, i, 1)
Next i
имеет смысл только если в функцию передавать строки вида "100101"