вы пытаетесь преобразовать строку в удвоенную, вот почему вы получаете эту ошибку.
Вы должны использовать числовое значение вместо строки, чтобы оно работало, как показано ниже:
EmployeeDiscountPct.value=app.GetRegKey(Double.Parse(12.20))*100
это будет работать.
Счастливое кодирование.
UPDATE:
Class SurroundingClass
Private ttt As Double = 38
Private gg As Double = test(ttt)
Public Function test(ByRef t As Double) As Double
Return t * 10
End Function
End Class