Va bene allora fai così:


lung = Len(Text1.Text)

ok = 0
b0$ = "": b1$ = "": segno$ = ""
For i = 1 To lung

If Mid$(Text1.Text, i, 1) = "*" Or Mid$(Text1.Text, i, 1) = "+" Or Mid$(Text1.Text, i, 1) = "-" Or Mid$(Text1.Text, i, 1) = "/" Then
ok = 1
segno$ = Mid$(Text1.Text, i, 1)
Else
If ok = 0 Then
b0$ = b0$ + Mid$(Text1.Text, i, 1)
Else
b1$ = b1$ + Mid$(Text1.Text, i, 1)
End If
End If

Next i

If ok = 0 Then Beep: Text1.Text = "": MsgBox ("Non è possibile eseguire nessuna operazione!"): Exit Sub
If segno$ = "*" Then
risultato = Val(b0$) * Val(b1$)
End If
If segno$ = "+" Then
risultato = Val(b0$) + Val(b1$)
End If
If segno$ = "-" Then
risultato = Val(b0$) - Val(b1$)
End If
If segno$ = "/" Then
risultato = Val(b0$) / Val(b1$)
End If
Label1.Caption = risultato

fammi sapere..................