下面VB控制EXCEL连接程序怎么修改代码?

模块中的程序:Option ExplicitPublic Declare Function SetWindowPos Lib "user32" (ByVal HWnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
               ByVal lpWindowName As Long) As Long
Public Declare Function FindExcel Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
               ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HWnd As Long, ByVal wMsg As Long, _
               ByVal wParam As Long, ByVal lParam As Long) As Long
Public DialNum(0 To 6) As String
Public FileName As String, FilePath As String
Public Declare Function GetTickCount Lib "kernel32" () As LongPublic Const xlCenter = -4108
Public Const xlExcel5 = 39
Public Const xlExcel9795 = 43Public ExcelApp As Excel.Application
Public ExcelBook As Excel.Workbook
Public Function Check_File(Str As String) As Integer
    Check_File = 1                                                                      '1 as Exist But Not Open
    If Dir(Str) = "" Then Check_File = 0                                                '0 as Not Exist
    If FindExcel("XLMAIN", "Microsoft Excel - " & Dir(Str)) <> 0 _
        Or FindExcel("XLMAIN", LEFT("Microsoft Excel - " & Dir(Str), Len("Microsoft Excel - " & Dir(Str)) - 4)) <> 0 _
            Then Check_File = 2   '2 as Open
End Function
FORM里的程序
Private Sub SaveExcel_Click()
    On Error GoTo IFError
    If SaveExcel.value = vbChecked Then
        Set ExcelApp = Nothing
        Set ExcelBook = Nothing
        TextExcelFileName.Enabled = False
        If Check_File(TextExcelFileName) = 2 Then
            Set ExcelApp = New Excel.Application
            Set ExcelBook = GetObject(TextExcelFileName)
        End If
        If Check_File(TextExcelFileName) = 0 Then
            Err.Clear
            Set ExcelApp = New Excel.Application
            Set ExcelBook = ExcelApp.Workbooks.Add
            ExcelBook.SaveAs TextExcelFileName
            ExcelApp.Visible = True
            Me.SetFocus
        End If
        If Check_File(TextExcelFileName) = 1 Then
            Set ExcelApp = New Excel.Application
            Set ExcelBook = ExcelApp.Workbooks.Open(TextExcelFileName)
            ExcelApp.Visible = True
            Me.SetFocus
        End If
这个程序是1，判断文件是否存在 2，若文件存在，判断是否需要覆盖现有文件 3，若不需要覆盖则退出处理，否则覆盖 4，若文件不存在则创建
现在需要修改:如果文件存在出现是否要覆盖的对话框后,选择不覆盖然后打开原来的EXCEL.将光标放到最后一个字段,记录新的内容
请帮忙改写下代码啊.谢谢啊最好能帮忙给个注解