[VB6] Numero di produzione ID OEM e rimozione lettere

[mgmg]

Anch'io l'ho provata e funziona egregiamente anche con i trattini nel msgbox ritorna: 12345678912345678

Private Sub Command1_Click()
stringa$ = "12345OEM---678912345678"
For i = Len(stringa$) To 1 Step -1
    car = Mid(stringa$, i, 1)
        If IsNumeric(car) = False Then stringa = Left(stringa, i - 1) & Mid(stringa, i + 1, Len(stringa) - 1)
Next i
MsgBox stringa
End Sub

Ciao