subscript out of range error when attempting to activate file

Hello,
The attached function returns a string containing the file path of the selected file.
I am getting a "Subscript Out of Range Error in the calling procedure in the second line of the following calling code.  When I used a debug.print statement after the first line, the correct file was being called.  I am running Excel 2003

strSourceFilePath = GetFile    
Windows(strSourceFilePath).Activate

Public Function GetFile() As String
    
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select source file"
        .Show
        If .SelectedItems.Count = 0 Then
            GetFile = "No File Selected"
        Else
            GetFile = .SelectedItems(1)
        End If
    End With
    
End Function

Select allOpen in new window