D2 = Format(Cos(D1) * 180 / Pi, "0.000")
Hier wurden die Klammern vergessen!
D2 = Format(Cos(D1) * (180 / Pi), "0.000")

Gruß, Trabukh