Imports Starksoft.Cryptography.OpenPGP
Imports System.IO
Imports ClassLibrary1.cls

Module my_int
    'Imports System.Text
    Public Class EncryptionService
        Implements IEncryptionService

        Private gpg As GnuPG = New GnuPG

        Private appPath As String
#Region "Constructors"
        Public Sub New()
            MyBase.New

        End Sub
        Public Sub New(ByVal appPath As String)
            MyBase.New
            Me.appPath = Me.appPath
        End Sub
#End Region

        Public Function DecryptFile(ByVal encryptedSourceFile As String, ByVal decryptedFile As String) As FileInfo
            ' check parameters
            If String.IsNullOrEmpty(encryptedSourceFile) Then
                Throw New ArgumentException("encryptedSourceFile parameter is either empty or null", "encryptedSourceFile")
            End If

            If String.IsNullOrEmpty(decryptedFile) Then
                Throw New ArgumentException("decryptedFile parameter is either empty or null", "decryptedFile")
            End If

            Dim encryptedSourceFileStream As FileStream = New FileStream(encryptedSourceFile, FileMode.Open)
            '  make sure the stream is at the start.
            encryptedSourceFileStream.Position = 0
            Dim decryptedFileStream As FileStream = New FileStream(decryptedFile, FileMode.Create)
            '  Specify the directory containing gpg.exe (again, not sure why).
            Me.gpg.BinaryPath = Path.GetDirectoryName(Me.appPath)
            '  Decrypt
            Me.gpg.Decrypt(encryptedSourceFileStream, decryptedFileStream)
            Return New FileInfo(decryptedFile)
        End Function

        Public Function EncryptFile(ByVal keyUserId As String, ByVal sourceFile As String, ByVal encryptedFile As String) As FileInfo
            ' check parameters

            If String.IsNullOrEmpty(keyUserId) Then
                Throw New ArgumentException("keyUserId parameter is either empty or null", "keyUserId")
            End If

            If String.IsNullOrEmpty(sourceFile) Then
                Throw New ArgumentException("sourceFile parameter is either empty or null", "sourceFile")
            End If

            If String.IsNullOrEmpty(encryptedFile) Then
                Throw New ArgumentException("encryptedFile parameter is either empty or null", "encryptedFile")
            End If

            Dim sourceFileStream As Stream = New FileStream(sourceFile, FileMode.Open)
            Dim encryptedFileStream As Stream = New FileStream(encryptedFile, FileMode.Create)
            '  Specify the directory containing gpg.exe (not sure why).
            ' Me.gpg.BinaryPath = Path.GetDirectoryName(Me.appPath)

            Me.gpg.BinaryPath = Path.GetDirectoryName("C:\Program Files\GNU\GnuPG\pub\")

            Me.gpg.Recipient = keyUserId
            '  Perform encryption
            Me.gpg.Encrypt(sourceFileStream, encryptedFileStream)
            Return New FileInfo(encryptedFile)
        End Function

        Private Function IEncryptionService_EncryptFile(keyUserId As String, sourceFile As String, encryptedFile As String) As FileInfo Implements IEncryptionService.EncryptFile
            Throw New NotImplementedException()
        End Function

        Private Function IEncryptionService_DecryptFile(encryptedSourceFile As String, decryptedFile As String) As FileInfo Implements IEncryptionService.DecryptFile
            Throw New NotImplementedException()
        End Function
    End Class
End Module

Dim p As New EncryptionService
 Call p.EncryptFile("xxxxxx", fileName, fileNameOut)