calcolatrice con visual basic

scrivere un numero (100) nella casella indicata e poi cliccare su tasto funzione da attivare(radiceq)

segnale di errore perchè numero negativo(-100) non calcolabile con funzione Log

listato programma

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 
   Caption         =   "UserForm1"
   ClientHeight    =   4635
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8280
   OleObjectBlob   =   "xcalcola3.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CommandButton1_Click()
risposta.Caption = Int(numero.Text)
End Sub

Private Sub CommandButton10_Click()
If numero.Text > 0 Then
risposta.Caption = Log(numero.Text) / Log(10)
Else
risposta.Caption = "valore non accettabile"
End If
End Sub

Private Sub CommandButton11_Click()
risposta.Caption = Exp(numero.Text)
End Sub

Private Sub CommandButton12_Click()
risposta.Caption = numero.Text * 180 / 3.14
End Sub

Private Sub CommandButton13_Click()
Dim radianti As Single
radianti = ((numero.Text * 3.14) / 180)
risposta.Caption = Sin(radianti)
End Sub

Private Sub CommandButton14_Click()
Dim radianti As Single
radianti = ((numero.Text * 3.14) / 180)
risposta.Caption = Cos(radianti)
End Sub

Private Sub CommandButton15_Click()
Dim radianti As Single
radianti = ((numero.Text * 3.14) / 180)
risposta.Caption = Tan(radianti)
End Sub

Private Sub CommandButton16_Click()
Dim radianti As Single
radianti = ((numero.Text * 3.14) / 180)
risposta.Caption = Sin(radianti) / Cos(radianti)
End Sub

Private Sub CommandButton17_Click()
Dim radianti As Single
radianti = ((numero.Text * 3.14) / 180)
risposta.Caption = Atn(radianti)
End Sub

Private Sub CommandButton18_Click()
risposta.Caption = numero.Text * 3.14 / 180
End Sub

Private Sub CommandButton2_Click()
risposta.Caption = Abs(numero.Text)
End Sub

Private Sub CommandButton3_Click()
risposta.Caption = Sgn(numero.Text)
End Sub

Private Sub CommandButton4_Click()
risposta.Caption = Rnd(numero.Text)
End Sub

Private Sub CommandButton5_Click()
If numero.Text >= 0 Then
risposta.Caption = Sqr(numero.Text)
Else
risposta.Caption = "valore non accettabile"
End If

End Sub

Private Sub CommandButton6_Click()
risposta.Caption = numero.Text ^ 2
End Sub

Private Sub CommandButton7_Click()
risposta.Caption = numero.Text ^ 3
End Sub

Private Sub CommandButton8_Click()
risposta.Caption = numero.Text ^ 4
End Sub

Private Sub CommandButton9_Click()
If numero.Text > 0 Then
risposta.Caption = Log(numero.Text)
Else
risposta.Caption = "valore non accettabile"
End If
End Sub