ragazzi grazie per l'aiuto.
ho risolto in questo modo

Dim im, c2, t2 As Currency
im = importom.Text
c2 = Combo2.Text
t2 = CCur(Text2.Text)

If im = "" Or im = 0 Then
ElseIf c2 = "Dare" Then
Text1.Text = FormatCurrency(t2 - im)
ElseIf c2 = "Avere" Then
Text1.Text = FormatCurrency(t2 + im)
Else
End If

by