Program Consuming too much Virtual Memory

Imports System.Collections.ObjectModel
Imports System.Drawing.Imaging
Imports System.IO
 
    Sub CombineFilesAndCopy()
        If Not My.Computer.FileSystem.DirectoryExists("S:\WI Viewer Tiff Files\" & Microsoft.VisualBasic.Left(myFile, 2)) Then
            My.Computer.FileSystem.CreateDirectory("S:\WI Viewer Tiff Files\" & Microsoft.VisualBasic.Left(myFile, 2))
        End If
 
        k = i
        '   Dim filename As String = "Q:\" & Microsoft.VisualBasic.Left(myFile, 2) & "\" & myFile & ".tif"
        'get the codec for tiff file
        Dim info As ImageCodecInfo = Nothing
        Dim ice As ImageCodecInfo
        For Each ice In ImageCodecInfo.GetImageEncoders()
            If ice.MimeType = "image/tiff" Then
                info = ice
            End If
        Next ice 'use the save encoder
 
        Dim enc As Encoder = Encoder.SaveFlag
        Dim encCom As Encoder = Encoder.Compression
 
        Dim ep As New EncoderParameters(2)
        ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.MultiFrame))
        ep.Param(1) = New EncoderParameter(encCom, CLng(EncoderValue.CompressionCCITT4))
 
        Dim pages As Bitmap = Nothing
        Dim frame As Integer = -1
 
        Do
            k = k + 1
            frame += 1
            If frame = 0 Then
                pages = CType(Image.FromFile(Systemfiles(k - 1).ToString()), Bitmap)
                'save the first frame
                '  ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.FrameDimensionPage))
                pages.Save(filename, info, ep)
            Else
                Try
                    'save the intermediate frames
                    ep = New EncoderParameters(2)
                    ep.Param(0) = New EncoderParameter(enc, CLng(EncoderValue.FrameDimensionPage))
                    ep.Param(1) = New EncoderParameter(encCom, CLng(EncoderValue.CompressionCCITT4))
                    pages.SaveAdd(CType(Image.FromFile(Systemfiles(k - 1).ToString()), Bitmap), ep)
                Catch ex As Exception
                    Console.WriteLine(ex.Message)
 
                End Try
 
            End If
            If k = Systemfiles.Count Then Exit Do
        Loop Until Microsoft.VisualBasic.Right(Microsoft.VisualBasic.Left(Systemfiles(k).ToString(), 18), 12) <> myFile
        CurrentRev.Add(myFile)
        pages.Dispose()
        ep.Dispose()
    End Sub