ayuda para macro excel vba

[nauta85]

hola alguien me puede ayudar a entender esta serie de instrucciones se supone que cone stoi puedo hacer lo que estoy buscando pero no lo entiendo y lo peor no se como aplicarlo.

gracias

dim iposicion as integer

dim ivalor as double
dim stexto as string

iposicion = instr(mitexto,".")
Según recuerdo, ahí tenemos la posición del valor del separador decimal.

stexto = mid$(mitexto,1,iposicion-1)
ivalor = val(stexto)

stexto = mid$(mitexto,iposicion+1,len(mitexto)-(iposicion+1))

ivalor = ivalor + (val(stexto)/100)