使用对话框引用打开的文件时出现运行时错误13类型不匹配

Sub OpenFile()
    Dim filePath As String
    Dim fileDialog As FileDialog
    
    ' 创建文件对话框对象
    Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
    
    ' 设置对话框属性
    With fileDialog
        .Title = "请选择一个文件"
        .Filters.Clear
        .Filters.Add "所有文件", "*.*"
        
        ' 显示对话框并获取用户选择的文件路径
        If .Show = True Then
            filePath = .SelectedItems(1)
            
            ' 这里可以添加代码来处理文件路径
            ' 例如，打开文件并进行操作
            Debug.Print "选中的文件路径是：" & filePath
            
            ' 假设我们要读取文件中的数字并进行计算
            Dim fileNumber As Double
            On Error GoTo ErrorHandler ' 设置错误处理
            
            fileNumber = CDbl(ReadNumberFromFile(filePath)) ' 假设ReadNumberFromFile函数正确读取并返回数字
            Debug.Print "文件中的数字是：" & fileNumber
            
            Exit Sub
        End If
    End With
    
ErrorHandler:
    If Err.Number = 13 Then
        MsgBox "类型不匹配错误，请检查文件内容是否为数字。"
    Else
        MsgBox "发生未知错误：" & Err.Description
    End If
End Sub

Function ReadNumberFromFile(filePath As String) As String
    ' 这里应该包含读取文件并返回数字的逻辑
    ' 为了示例，我们假设文件只包含一个数字
    ReadNumberFromFile = "123.45" ' 实际应用中应替换为读取文件的代码
End Function