Hi Guys,

I need a little help with the below code
The current code adds the contents of a textbox to the folderpath and pulls the file, But now i need the query to be in three parts:

1). A two part folder path consisting of:

a. (1st half ) "C:\Documents and Settings\carl.walker\My Documents\Reports\"
b. (2nd half) "Contents from textbox1"

2). The file name to pull from "textbox2"



Any help with this would be great.
Thanks in advance

Carl 

If FileName = vbNullString Then


  
MsgBox "No Serial number available."
Me.TBM1Serial.SetFocus

Exit Sub
End If

Const strFldrPath As String = "C:\Documents and Settings\carl.walker\My Documents\Reports\"

Dim CurrentFile As String: CurrentFile = Dir(strFldrPath)
Dim FileFound As Boolean: FileFound = False
While CurrentFile <> vbNullString And FileFound = False

If InStr(1, CurrentFile, FileName, vbTextCompare) > 0 Then
ActiveWorkbook.FollowHyperlink (strFldrPath & CurrentFile)
FileFound = True

End If

CurrentFile = Dir()

Wend


If FileFound = False Then
MsgBox Title:="File Not Found", _
Prompt:="File """ & FileName & """ not found in " & strFldrPath

End If


'Unload Me

End Sub]