[black_moon]

تفضل يا اخي ان شاء الله طلبك في المثال المرفق

كود :

Private Sub Command1_Click()
Label2.Caption = funcc(Val(Text1.Text))
End Sub
Function funcc(x As Integer) As Integer
funcc = 222
If x <= 10 Then funcc = 111
End Function