How do I call a Function from a Sub Procedure

Function fnGetFieldsOfTable(sTable As String) As Boolean
    
    'fn to create table holding field names of input table parameter
    Dim d As DAO.Database, f As Field, t As TableDef, sql As String
    Dim r As DAO.Recordset
    Dim sTemp As String
    
    sTemp = "tmpTableFieldList"
    Set d = CurrentDb
    Set t = d.TableDefs(sTable)
    On Error Resume Next
    DoCmd.DeleteObject acTable, sTemp
    
    On Error GoTo errH
    'create table
    sql = "select '1' as TableName, '1' as FieldName into " & sTemp & " from " & sTable & " where 1 = 0"
    Debug.Print sql
    d.Execute sql
    Set r = d.OpenRecordset(sTemp)
    For Each f In t.Fields
            r.AddNew
                r!tablename = sTable
                r!FieldName = f.Name
            r.Update
    Next
    Set r = Nothing
    Set f = Nothing
    Set d = Nothing
    Exit Function
    
errH:
    Beep
    MsgBox Err & " " & Err.Description
    Set d = Nothing
End Function