исправить ошибку на VBA

[NitriNKa]

помогите найти ошибку(( Вот программка, ошибка в том, что не все положительные значения определяются. Но зато все отрицательные. Н пойму почему. Предлагали s написать через константу, не помогло. Подскажите, что ещё можно!!

Private Sub CommandButton1_Click()
Dim x As Integer, s
x = TextBox1.Text
s = "Log(x) не определён "
If x <= 0 Then
If Sin(x) <= Cos(x) Then
Label2.Caption = s & "sin(x)=" & Sin(x) & " cos(x)=" & Cos(x)
Else
Label2.Caption = s & "cos(x)=" & Cos(x) & " sin(x)=" & Sin(x)
End If
ElseIf (Sin(x) <= Cos(x)) And (Cos(x) <= Log(x)) Then
Label2.Caption = "sin(x)=" & Sin(x) & " cos(x)=" & Cos(x) & " Log(x)=" & Log(x)
Else
If (Sin(x) <= Log(x)) And (Log(x) <= Cos(x)) Then
Label2.Caption = "sin(x)=" & Sin(x) & " Log(x)=" & Log(x) & " cos(x)=" & Cos(x)
Else
If (Log(x) <= Sin(x)) And (Sin(x) <= Cos(x)) Then
Label2.Caption = "Log(x)=" & Log(x) & " sin(x)=" & Sin(x) & " cos(x)=" & Cos(x)
Else
If (Log(x) <= Cos(x)) And (Cos(x) <= Sin(x)) Then
Label2.Caption = "Log(x)=" & Log(x) & " cos(x)=" & Cos(x) & " sin(x)=" & Sin(x)
End If
End If
End If
End If

End Sub

[Terran]

Ошибки в коде нет. Просто полученный результат не подходит не к одному из поставленных условий. Попробуйте сделать так:

...
If (Log(x) <= Sin(x)) And (Sin(x) <= Cos(x)) Then
Label2.Caption = "Log(x)=" & Log(x) & " sin(x)=" & Sin(x) & " cos(x)=" & Cos(x)
Else
Label2.Caption = "sin(x)=" & Sin(x) & " cos(x)=" & Cos(x) & " Log(x)=" & Log(x) 
If (Log(x) <= Cos(x)) And (Cos(x) <= Sin(x)) Then
TextBox2.Text = 1
Label2.Caption = "Log(x)=" & Log(x) & " cos(x)=" & Cos(x) & " sin(x)=" & Sin(x)
End If
End If
...

Так всё будет работать, только вам нужно будет подправить строчку кода, если я не точно написал.