prova questo:

Dim Primo As Double
Primo = ((CLng(22000) * 5) / 100)