Getting a blank return from my function - not sure why?

[TheRedCardinal]

I am asking the user to select a folder. I then want to post the string to a table in Excel.

I am using a Function I found on here, and on OzGrid:

Function GetFolder(StrPath)
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
    .Title = "Select a Folder"
    .AllowMultiSelect = False
    .InitialFileName = StrPath
    If .Show <> -1 Then GoTo NextCode
    sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem

Set fldr = Nothing
End Function

Then in my code:

If Answer = vbYes Then
            
           GetFolder (StrPath)
           
           MsgBox ("The selected folder was " & StrPath)
           
           End If

My message box contains the fixed text but nothing for the StrPath variable.

I've done something obvious wrong....?

 

[Fluff]

You're not doing anything with the folder, it should be something like

           x = GetFolder(StrPath)
           
           MsgBox ("The selected folder was " & x)

 

[TheRedCardinal]

Ah - thanks Fluff.

I am new to Functions.

I thought StrPath would be returned as the variable holding the calculation.

Works now!

 

[Fluff]

You're welcome & thanks for the feedback.