Private Sub txtTel_Change(Index As Integer)
    'If txtTel(Index).Locked = True Then txtTel(Index).Text = m_sTel(Index): Exit Sub
    txtChange txtTel(Index)
End Sub

Private Sub txtTel_KeyPress(Index As Integer, KeyAscii As Integer)
    txtKeyPressInt KeyAscii, txtTel(Index)
End Sub

Private Sub txtTel_LostFocus(Index As Integer)
    txtTel_Change (Index)
End Sub


Public Sub txtChange(txtobj As TextBox)
    If Len(txtobj.Text) >  0  And Not IsNumeric(txtobj.Text) Then
        MsgBox  "В поле допустимы только цифры." , vbExclamation,  "Сообщение" 
        txtobj.SelStart =  0 
        txtobj.SelLength = Len(txtobj.Text)
        txtobj.SetFocus
    End If
End Sub

Public Sub txtKeyPressInt(KeyAscii As Integer, txtobj As TextBox)
Dim s As String
If KeyAscii <>  8  And KeyAscii <>  13  Then
    s = Chr$(KeyAscii)
    If Not (s Like  "[0 - 9 ]") Then KeyAscii =  0 
End If
End Sub