Adding figures in userform textbox formatted as Euro

Using VBA I can I add the values of 2 userform textboxes if they are formatted with the Pound (£) sign, BUT, I can not get it to add 2 textboxes if they are formatted with the Euro (€) sign.
txtGB1 = Format(txtGB1, "£ #,##0.00")
txtGB2 = Format(txtGB2, "£ #,##0.00")

txtFrench1 = Format(txtFrench1, "€ #,##0.00")
txtFrench2 = Format(txtFrench2, "€ #,##0.00")

SO, this works

Dim Tot As Double
        On Error Resume Next
        'Additions
            Tot = Tot + CDbl(txtGB1.Value)
            Tot = Tot + CDbl(txtGB2.Value

But this does not,

Dim Tot As Double
        On Error Resume Next
        'Additions
            Tot = Tot + CDbl(txtFrench1.Value)
            Tot = Tot + CDbl(txtFrench2.Value)

If I remove the Euro (€) sign, it adds correctly.

Thanks for looking.