[VB6] Creare Array con Len di una stringa

[raffaeu]

Ciao ho la necessita di creare un codice a 7 cifre, di cui le prima 4 (già fatto) sono numeri e le ultime tre, le prime tre lettere di un nome ...

Mi spiego meglio.

Poniamo che io abbia 600 Hotel Frascati

Il codice dovrebbe essere 6000hot ovvero le prime tre lettere della stringa.
Problema :

una volta creato il codice, lo cerco nel DB, e se è già presente, allora devo avanzare di una lettera, ovvero hoe , e cosi' via fino a quando non ne creo che ancora non c'è.

In pratica devo lavorare su un array ... chi mi aiuta?

[raffaeu]

Io ho già creato questa parte di codice, la funzione che riceve i due dati e restituisce la nuova stringa

Function createCode(ByVal code As String, ByVal name As String) As String
On Error GoTo Err_createCode
Dim str As String, codice()
    str = Left(code, 3)
    str = str & "0"
    codice = Array(Len(name))
    
    If check(createCode) = false then
         'riprova
    End If
Exit_createCode:
    Exit Function
Err_createCode:
    MsgBox Err.Number & "   " & Err.Description
    Exit Function
End Function

Come posso fare un loop sull' array e sapere cosa ho già creato???

[Sypher]

ma scusa nn è meglio se ti crei il tuo codice controlli se esiste sul DB e se esiste ti sposti di un carattere sulla stringa con la Mid?

[raffaeu]

Si e magari con una variabile locale che incremento, mi sposto con il MID, come si dice a Varese

'te ghe rasun' ... oggi provo.
Grazie per lo spunto.