Codigo:
Private Sub Command1_Click()
CreaBin "Mi_bin", "Esto es una prueva"
End Sub
---------------------------------------------------------------------------
Sub CreaBin(Archivo As String, Texto As String)
Open CurDir + "" + Archivo + ".bin" For Output Shared As #1
Print #1, Texto
Close #1
End Sub