Text Style Edit

Public Sub SetZeroHeight()
Dim oStyle As AcadTextStyle
Dim sname As String
Dim shgt As Double
Dim strText As String
    sname = InputBox("Имя стиля текста для которого " & vbNewLine _
                & "установить нулевую высоту", "Изменение стиля текста")
    If sname = "" Then Exit Sub
On Error Resume Next
    Set oStyle = ThisDrawing.TextStyles(sname)
    If oStyle Is Nothing Then
        MsgBox "This text style does not exist"
        Exit Sub
    End If
    shgt = oStyle.Height
    If shgt <> 0 Then
    oStyle.Height = 0
    End If
       MsgBox "Высота текста для стиля: " & vbNewLine & oStyle.Name & _
       " установлена " & oStyle.Height & " единиц", _
       vbInformation, "Стиль текста:  " & oStyle.Name
MsgBox Err.Description
End Sub