kodu aşağıdakiyle değiştirip dener misiniz?
yine fonksiyon gerekti ama daha basit gibi geldi.

Public Function fNewRound(mikSayi As Double, kusurat As Integer)

    fNewRound = Format(mikSayi, "0." & String(kusurat, "0"))

End Function