una cosa sbagliata, o meglio una distrazione, sul mio codice ci sta; infatti così com'è non tiene conto dei numeri con la virgola, quindi andrà modificata così, aggiungendo un Replace:

codice:
X = 25.5
X = Replace(X, ".", ",")

MyStr = "/100*130"
Risultato = CSng(X) / CSng(100) * CSng(130)
MsgBox Risultato