Visual Basic - Pregunta con format

el resultado de una operacion matematica es el siguiente: 25.65. he usado format para que al final me aparezca 25.65€.
text1.text = format(text1, "0.00€")
Mi problema es que necesito ese valor para poder utilizarlo en mas operaciones matematicas, pero al haber una letra me da error.
¿hay alguna función que me de sólo el valor numerico?.
¿o como puedo hacerlo?

'Es sencillo
Private Sub Command1_Click()

'Supongamos que text1=25.20
Text2 = Format(Val(Text1), "currency") 'devuelve €25.20
Text3 = Mid(Text2, 2, (Len(Text2) - 1)) 'extrae desde la posicion 2 hasta la 5 y te devuelve 25.20

End Sub

usa esto

valor=val(left(text1,len(text1)-1))

saludos