[VB6]Eseguire un calcolo con una stringa

[ladyBlu]

Originariamente inviato da Mabi
Se però i numeri della stringa variano li devi estrarre e convertire.

....

ho capito cosa volevi dire... però il tuo codice restituisce un risultato Long e non consente di manipolare valori con la virgola.
ho modificato così il tuo codice... e mi sembra che sia perfetto.
è una fusione tra ciò che ho postato io e ciò che hai postato tu:

Dim MyStr As String
Dim X As Single
Dim Num1 As Single
Dim Num2 As Single
Dim Risultato As Single
Dim PosPer As Integer

MyStr = "/100*130"
PosPer = InStr(1, MyStr, "*")

X = 150

X = Replace(X, ".", ",")
Num2 = CSng(Right(MyStr, Len(MyStr) - PosPer))
MyStr = Mid(MyStr, 2, PosPer - 2)
Num1 = CSng(MyStr)

Risultato = CSng(X) / CSng(Num1) * CSng(Num2)
MsgBox Risultato