Problem with File Browse API Crashing Access Application

Option Compare Database
Option Explicit
'This funtion is what launches the browse window
Public Const MAX_PATH = 260
Public Const BIF_BROWSEINCLUDEFILES = &H4000


Private Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type

Public Declare Sub CoTaskMemFree _
    Lib "ole32.dll" _
    (ByVal hMem As Long)

Public Declare Function GetDesktopWindow _
    Lib "user32" () As Long

Public Declare Function lstrcat _
    Lib "kernel32" _
    Alias "lstrcatA" _
    (ByVal lpString1 As String, _
    ByVal lpString2 As String) As Long

Public Declare Function SHBrowseForFolder _
    Lib "shell32" _
    (lpbi As BrowseInfo) As Long

Public Declare Function SHGetPathFromIDList _
    Lib "shell32" _
    (ByVal pidList As Long, _
    ByVal lpBuffer As String) As Long

Public Function SelectDir(strTitle As String) As String
    Dim PathLen As Integer
    Dim lpIDList As Long
    Dim RetCode As Long
    Dim DirPath As String
    Dim BFFInfo As BrowseInfo

    With BFFInfo
        .hWndOwner = GetDesktopWindow
        .lpszTitle = lstrcat(strTitle, Chr$(0))
        .ulFlags = BIF_BROWSEINCLUDEFILES
        
    End With

        DirPath = ""
        lpIDList = SHBrowseForFolder(BFFInfo)

    If lpIDList Then
        DirPath = String$(MAX_PATH, 0)
        RetCode = SHGetPathFromIDList(lpIDList, DirPath)
        Call CoTaskMemFree(lpIDList)
        PathLen = InStr(DirPath, vbNullChar)
        If PathLen Then
            DirPath = Left$(DirPath, PathLen - 1)
        End If
    End If
    SelectDir = DirPath
End Function

Option Compare Database
'This module Parses the String path to the file attachement
Function CountCSWords(ByVal s) As Integer
'Counts the words in a string that are separated by commas.
Dim WC As Integer, Pos As Integer
    If VarType(s) <> 8 Or Len(s) = 0 Then
        CountCSWords = 0
        Exit Function
    End If
    WC = 1
    Pos = InStr(s, "\")
    Do While Pos > 0
        WC = WC + 1
        Pos = InStr(Pos + 1, s, "\")
    Loop
    CountCSWords = WC
End Function

Option Compare Database
'THis module returns the filename of the uploaded attachment
Function GetCSWord(ByVal s, Indx As Integer)
'Returns the nth word in a specific field.
Dim WC As Integer, Count As Integer
Dim SPos As Integer, EPos As Integer

    WC = CountCSWords(s)
    If Indx < 1 Or Indx > WC Then
        GetCSWord = Null
        Exit Function
    End If
    Count = 1
    SPos = 1
    For Count = 2 To Indx
        SPos = InStr(SPos, s, "\") + 1
    Next Count
    EPos = InStr(SPos, s, "\") - 1
    If EPos <= 0 Then EPos = Len(s)
    GetCSWord = Trim(Mid(s, SPos, EPos - SPos + 1))
End Function

Private Sub cmdBrowse_Click()
'This button is the button which allows a user to include an attachment of any file type.
'It then saves this attachment to the location T:\Data Processing\PCAdmin\service2\KO # HERE\Issue\FILENAME.XXX

Dim strFolder As String
   'call module 1 which pops up the file selection box
   strFolder = SelectDir("c")

'This will display the source location on the form for the attachment.
txtIssueSource.SetFocus
txtIssueSource.Text = strFolder
If strFolder <> "" Then

'This function will add in the filecopy: count # of words in sourcename
Dim I As Integer
Dim intCnt As Integer
Dim strFinalDest As String

    'Find out how many \ separated words are present
    intCnt = CountCSWords(strFolder)
    
    'Now call the 3rd module function to retrieve each one in turn
    I = intCnt
        strFinalDest = GetCSWord(strFolder, I)
   

'copy source file to network location
Dim DestinationFile As String
Dim strIDValue As String

strIDValue = txtID.value

'state the destination save folder for the attachment
DestinationFile = "T:\Data Processing\PCAdmin\service2\KO\" + strIDValue + "\Issue\" + strFinalDest
FileCopy strFolder, DestinationFile

'This will copy the saved location to the database
Forms!frmData!AttachmentIssue = DestinationFile
MsgBox "Attachment has been Added. To add another Attachment just repeat the process."
Else
End If
End Sub

    'state the destination save folder for the attachment
    DestinationFile = "T:\Data Processing\PCAdmin\service2\KO\" + strIDValue + "\Issue\" + strFinalDest
    On Error GoTo Error_message
    FileCopy strFolder, DestinationFile
    On Error GoTo 0
    'This will copy the saved location to the database
    Forms!frmData!AttachmentIssue = DestinationFile
    MsgBox "Attachment has been Added. To add another Attachment just repeat the process."
Out:
    Else
    End If
    Exit Sub
    
Error_message:
    MsgBox "Error =   " & Err.Number & ": " & Err.Description
    OnError GoTo 0
    GoTo Out
End Sub