Вычислить и округлить функцию - VB

Формулировка задачи:

Вычислить и округлить до 0,001 функцию y={ 3sin(6x), если x<2,3 или x>8,3;

y(8,72)=2,656

{2arctg(3)+lg(7x), если 3,3<x<5,3;

y(4,85)=4,029

{ ctg(4)+x, во всех остальных случаях;

y(6,2)=7,064

там одна большая фигурная скобка)

Решение задачи: «Вычислить и округлить функцию»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim x As Double
Dim y As Double
Dim a As Double
 
Private Sub Form_Load()
        Text1() = 2
        Text1().SelStart = 0
        Text1().SelLength = Len(Text1())
        res
End Sub
 
Private Sub Text1_change()
       If Text1.Text = "" Then
            Text1() = 2
            Text1().SelStart = 0
            Text1().SelLength = Len(Text1())
        Else
            x = Val(Text1.Text)
        End If
res
End Sub
 
Private Sub res()
Label1.Caption = ""
x = Val(Text1.Text)
If x < 2.3 Or x > 8.3 Then
        y = 3 * Sin(6 * x)
ElseIf x > 3.3 Or x < 5.3 Then
        y = 2 * Atn(3) * lg(7 * x)
Else
y = 1 / Tan(4) + x
End If
 
Label1.Caption = Round(y, 3)
End Sub
Function lg(a As Double) As Double
   lg = Log(a) / Log(10)
End Function
                        