[vb6]Convertire stringa in numero intero

[pascan2]

Salve ecco il problema
come posso fare per convertire una stringa in un numero intero.
es "Giallo" convertito in numero?Magari le cifre le scelgo pure io.(es tre cifre)
Per assurdo:"Giallo" --> 354 (tre cifre)

[LMondi]

Se le corrispondenze sono molte potresti usare Select Case, come segue:

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:

[pascan2]

Grazie per l'interessamento però la situazione è un pò diversa.
le stringhe, es."Giallo", non sono prefissate ma possono essere le più disparate.

[oregon]

Beh ... le piu' disparate ... quanto disparate?

Esiste una lunghezza massima e una mimima della stringa?
Quali caratteri puoi usare nella stringa (alfabetici, numerici, alfanumerici, speciali ...)?