Opening a workbook to copy+paste data into the workbook in which sub is called stops working after it's been run unless I insert a break in the code

Public Sub LoadData()

Dim fcell As Range, ncell As Range, row As Integer, col As Integer
Dim cellval As String, wb As Workbook, clarioBook As Workbook, clarioFile As String, ws As Worksheet

Set wb = ActiveWorkbook

clarioFile = Open_File

Set clarioBook = Workbooks.Open(clarioFile) 
' randomly stops here using the same file that works, no error given

Set ws = wb.Sheets.Add

ws.Name = Left(clarioBook.Name, 31)

clarioBook.Sheets(1).Range("A:AC").Copy Destination:=wb.Sheets(1).Range("A:AC")
clarioBook.Close SaveChanges:=False

End Sub

Public Function Open_File() As String
Dim clarioFile As String
With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Select the Clariostar File"
        .ButtonName = "Make It So"

        If .Show = -1 Then
            
            clarioFile = .SelectedItems(1)
            If Dir(clarioFile) = vbNullString Or (Right$(clarioFile, 4) <> "xlsx" And Right$(clarioFile, 3) <> "csv") Then
                MsgBox ("Invalid File")
                clarioFile = vbNullString
                Open_File = clarioFile
                Exit Function
                
            End If

        Else

            MsgBox ("A folder location must be chosen.")
            clarioFile = vbNullString
            Open_File = clarioFile
        End If
    End With
    
Open_File = clarioFile

End Function