thầy ơi em hỏi với. Bây h em muốn đổi định dạng...

thầy ơi em hỏi với. Bây h em muốn đổi định dạng sdt khi nhập vào thì em chèn code vào tiếp VBA như thế nào a. Đoạn code e đang làm:
Private Sub CommandButton1_Click()
'MsgBox "Xin Cam On"
'ghi du lieu vao dau

'cho dong tu dong cong 1
Dim lr As Long
Dim wb As Workbook
Set wb = Workbooks.Open("file:///C:\Users\Banvt\Desktop\HocVBA\Nhap-Lieu.xlsx")
Dim ws As Worksheet
Set ws = wb.Worksheets(1)
lr = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
If WorksheetFunction.CountIf(ws.Range("A:A"), Me.TexHoten) > 0 Then
MsgBox "Ho Ten da co.Vui long xac nhan lai"
Exit Sub
End If

If Me.TexHoten = "" Or Me.TextDiachi = "" Or Me.TextSDT = "" Then
MsgBox "Thong tin thieu.Vui long nhap lai"
Exit Sub
End If

With ws
.Cells(lr, 1) = Me.TexHoten
.Cells(lr, 2) = Me.TextSDT
.Cells(lr, 3) = Me.TextDiachi
End With
wb.Close savechanges:=True