我测试了下只有1-83个数值用逗号隔开放在一个单元格里下面代码才能正常运行

646411527

我测试了下只有1-83个数值用逗号隔开放在一个单元格里下面代码才能正常运行，超过就提示类型不匹配。哪位大神帮我看看怎么回事？
  sub  wendang()
  Dim Arr, k%, Str$

    Arr = [A1].CurrentRegion
    For k = 1 To UBound(Arr)
        Str = Str & Replace(Join(Application.Index(Arr, k)), " ", "") & vbCrLf '运行是错误“13”类型不匹配       Next

    Open Application.GetSaveAsFilename For Output As #1
    Print #1, Str
    Reset
Application.ScreenUpdating = True
End Sub