How do I programmatically change an existing Field's data type?

I use the attached code snippet to change field names and, optionally, to change the field's description.  How can I modify the code below to optionally change the field's data type too?  Assume there are no errors in the data conversion.  For example, an existing field labeled strMyTextField, only has numbers and I want to change it to the Integer data type and rename it intMyTextField.  In other words, when I change the data type manually in table design view from Text to Number, there are no errors.  The DAO Field type reference, i.e. the Constant names and Decimal values are shown below (source: http://allenbrowne.com/ser-49.html):
DAO constant                       DAO Decimal
dbBoolean                                1
dbByte                                2
dbInteger                                3
dbLong                                4
dbCurrency                                5
dbSingle                                6
dbDouble                                7
dbDate                                8
dbBinary                                9
dbText                               10
dbLongBinary                               11
dbMemo                               12
dbMemo with attributes              12
dbGUID                               15
dbDecimal                               20
dbAttachment                                101
dbComplexByte                                102
dbComplexInteger      103
dbComplexLong                                 104
dbComplexSingle      105
dbComplexDouble      106
dbComplexGUID                                 107
dbComplexDecimal      108
dbComplexText                                 109

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

Public Function ChangeFieldName(strTableName As String, strOldFieldName As String, strNewFieldName As String, Optional strNewFieldDescription As String)      
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim prp As Property
    
    Set db = CurrentDb
    Set tdf = db.TableDefs(strTableName)
    
    On Error GoTo ErrHandler
    
    If Not IsNull(strNewFieldDescription) And strNewFieldDescription <> "" Then
        With tdf.Fields(strOldFieldName)
            .Properties("Description").Value = strNewFieldDescription
        End With
    End If
    
    tdf(strOldFieldName).Name = strNewFieldName
   
ErrHandler:
    Select Case Err
            
        Case 3265&  'Table or Field name invalid
            MsgBox tdf.Name & " table or field doesn't exist"
                
        Case 3270
            tdf.Fields(strOldFieldName).Properties.Append _
            tdf.Fields(strOldFieldName).CreateProperty("Description", dbText, strNewFieldDescription)
            
            tdf(strOldFieldName).Name = strNewFieldName
    
            Err.Clear
                        
        Case Else
            Debug.Print "    AppendDeleteField() Error " & Err & ": " & Error
    End Select
   
    Set prp = Nothing
    Set tdf = Nothing
    Set db = Nothing
End Function