[VB6]Eseguire un calcolo con una stringa

[Mabi]

Se però i numeri della stringa variano li devi estrarre e convertire.

Dim Stringa1 As String

Dim X As Long
Dim Num1 As Long
Dim Num2 As Long
Dim Risultato As Long

Dim PosPer As Integer


Stringa1 = "/100*130"

PosPer = InStr(1, Stringa1, "*")

X = 500
Num2 = CLng(Right(Stringa1, Len(Stringa1) - PosPer))
Stringa1 = Mid(Stringa1, 2, PosPer - 2)
Num1 = CLng(Stringa1)

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