Visual Basic - Codificacion binaria

Creo que esta es facil. Estoy creando un programa cliente de correo. He conseguido enviar el correo, el archivo adjunto, he conseguido recibir el correo en "base64" y he creado el algoritmo para pasarlo a binario(ceros y unos). Como puedo crear un archivo a partir de su codigo binario???? he visto algo con "open archivo for binary...", pero no lo acabo de ver claro, porque luego el archivo queda con los ceros y unos, pero como texto, y evidentemente luego no funciona. Si alguien sabe algo al respecto, agradeceria que me lo aclarase

Dim by As Byte
Open "C:\BLA.TXT" For Binary As #1
Put #1, , by
Close #1

si los bytes lo tienes en una matriz de bytes mBy() también puedes hacer
Dim mBy( ) As Byte
Open "C:\BLA.TXT" For Binary As #1
Put #1, , mBy
Close #1

o si lo prefieres referenciando la librería "microsoft scripting"

Dim fs As New Scripting.FileSystemObject
Dim t As Scripting.TextStream
sTexto = ""
For i = 0 To UBound(mBy)
sTexto = sTexto & Chr(mBy(i))
Next
Set t = fs.CreateTextFile("c:\bla.txt", True, False)
t.Write sTexto
t.Close

Fíjate como he convertido los bytes en una cadena de texto para escribirla en el fichero.

Un saludo