Public Sub EncodeWithString() Dim inFile As System.IO.FileStream Dim binaryData() As Byte Try inFile = New System.IO.FileStream(inputFileName, _ System.IO.FileMode.Open, _ System.IO.FileAccess.Read) ReDim binaryData(inFile.Length) Dim bytesRead As Long = inFile.Read(binaryData, _ 0, _ inFile.Length) inFile.Close() Catch exp As System.Exception ' Error creating stream or reading from it. System.Console.WriteLine("{0}", exp.Message) Return End Try ' Convert the binary input into Base64 UUEncoded output. Dim base64String As String Try base64String = System.Convert.ToBase64String(binaryData, _ 0, _ binaryData.Length) Catch exp As System.ArgumentNullException System.Console.WriteLine("Binary data array is null.") Return End Try ' Write the UUEncoded version to the output file. Dim outFile As System.IO.StreamWriter Try outFile = New System.IO.StreamWriter(outputFileName, _ False, _ System.Text.Encoding.ASCII) outFile.Write(base64String) outFile.Close() Catch exp As System.Exception ' Error creating stream or writing to it. System.Console.WriteLine("{0}", exp.Message) End Try End Sub