Modülde bulunan aşağıdaki kodları silerek deneyiniz

GSayi = InStr(GTutari, ".")

    If GSayi = 0 Then

       GTutari = Left(GTutari, GSayi - 1) & "," & Right(GTutari, Len(GTutari) - GSayi)

        If Len(GTutari) = 6 Then '

           GFormatEkle = True

        End If

      End If