2 saattir uğraşıyorum hocam içimde kalmasın ben de paylaşayım)
kodun

       PEK = 0

       'MsgBox Val(PRIM_UCRET)

       If (IsNumeric(PRIM_UCRET)) Then

         PEK = PEK + Val(PRIM_UCRET)

       End If

       If (IsNumeric(PRIM_IKRAMIYE)) Then

         PEK = PEK + Val(PRIM_IKRAMIYE)

       End If

       PEK = Replace(PEK, ",", ".")

kısmını aşağıdaki kodla değiştirip dener misiniz?

       PEK = 0

       'MsgBox Val(PRIM_UCRET)

       If (IsNumeric(PRIM_UCRET)) Then

         PEK = PEK + (PRIM_UCRET)

       End If

       If (IsNumeric(PRIM_IKRAMIYE)) Then

         PEK = PEK + (PRIM_IKRAMIYE)

       End If

       PEK = Format(PEK, "0.00")