Private Sub UUDecodeSample()
    'Sample of the UUDecode function.

    Dim strIn$, strOut$, strFile$

    strIn = strIn & "begin 777 sample.txt" & vbCrLf
    strIn = strIn & "M5&AI<R!I<R!A('1E<W0@;V8@=&AE(%551&5C;V1E(&9U;F-T:6]N+@T*5&AI" & vbCrLf
    strIn = strIn & "F<R!I<R!A;F]T:&5R(&QI;F4@;V8@=&5X=""!T;R!T97-T+@T*#0IN" & vbCrLf
    strIn = strIn & "end"
    
    Debug.Print "Decoding: " & UUDecode(strIn, strOut, strFile)
    Debug.Print "File: " & strFile
    Debug.Print "Result:"
    Debug.Print strOut

End Sub