开发平台中，函数名是怎么写？

public function DK()函数,就是一个打开指定excel的函数，放在了模块中。代码如下

Private Function DK()
   Dim strTemplate As String   '模板文件路径名
   Dim objApp      As Object   'Excel程序
   Dim objBook     As Object   'Excel工作簿

    strTemplate = CurrentProject.path & "\data\数据源\支出合同录入.xlsm"
    Set objApp = CreateObject("Excel.Application")
    Set objBook = objApp.Workbooks.Open(strTemplate)
    objBook.Sheets("合同录入").Select
    objApp.Range("A4").Select
    Beep
    objApp.Visible = True
    objBook.Saved = False
Done:
    '防止因出错时Excel没有正确关闭（可能处于隐藏状态）
    On Error Resume Next
    Set objApp = Nothing
    Set objBook = Nothing
    Exit Function
End Function