In VBA, how do I remove everything after a specific character?

[Lazer]

Using String routines, how do I change the value
"7.00% " (String)
into "7.00" (Double)

i.e. to remove the "%" and everything after it?

Thanks,
Laze

 

[Tom Ogilvy]

Dim sStr as String
Dim dblVal as Double
sStr = "7.00% "
iloc = Instr(1,sStr,"%")
if iloc <> 0 then
dblVal = cdbl(Left(sStr,iloc-1))
Else
dblVal = 0
End if

 

[Lazer]

Tom, thank you very much!!!
Laze