funzioni di controllo IF con visual basic

Private Sub CommandButton1_Click()
Dim x As Integer
TextBox1.SetFocus
x = TextBox1.Text
verifica (x)
If verifica(x) Then
Label1.Caption = (Sqr(x))
Else
Label1.Caption = "deve essere numero positivo"
End If
End Sub

Private Function verifica(x As Integer)
If x > 0 Then verifica = True
End Function