Se le corrispondenze sono molte potresti usare Select Case, come segue:
codice:
Private Sub Command1_Click()
    Dim sCalc As String
    Dim dblRisNum As Double
    
    sCalc = Text2.Text
    
    Select Case sCalc
        Case "Giallo"
            dblRisNum = 354
        Case "Verde"
            dblRisNum = 355
        Case "Rosso"
            dblRisNum = 356
    End Select
    
    If dblRisNum = 0 Then MsgBox "Nessuna corrispondenza"
     Text1.Text = dblRisNum
End Sub
 :ciauz: