Программирование на vba .Помогите пожалуйста

Нужно добавить проверку на числа, чтобы в текст бокс нельзя было ввести 0 If OptGarm Then res = 6 / ((1 / a) + (1 / b) + (1 / c) + (1 / D) + (1 / e) + (1 / f)) LabelRes = "Среднее гармоническое" End If TextBoxRes = Format(res, "fixed") End Sub Private Sub CmdExit_Click() Unload Me End Sub Private Sub TextBox_Change() End Sub Private Sub UserForm_Click() End Sub