Created by General Newbie Bringing you all the good stuff

Ok this Crack is so that you can use all the Characters with
KartaNarrator

First step open the master kartanarrator file
"C:\Program Files\Karta\KartaNarrator\KartaNarrator Master.ppt"

next go to Tools , then Macro ---> Visual Basic Editor
now then its good popup and ask for a passwd
I said first to myself WTF GOD DAME IT
Anyways i cracked it for your sake passwd to enter "Cooper"
thats with a Capital "C"ooper
Ok now ya got a grin on your face
Ok now then check on the VBAProject
then go to Edit and find
now look for these

Case Is = "new"
        aboutform.userInfoBox.Text = "Thank you for purchasing KartaNarrator by Karta Technologies. If you enjoy using this product and would like to find out more about what Karta Technologies can offer you, please contact us at www.karta.com/kn by clicking the KartaNarrator logo on the control panel."
        aboutform.Show


Case Is = "bomb"
        Characters = GetProfileString("karnar", "start", "9", myText, 255)
        If Characters >= 1 Then
            myText2 = Left(myText, Characters)
        End If

        myNewDate = Date
        myFormatedDate = Format(myNewDate, "mm dd yy")
        myFormatedDate = CDate(myFormatedDate)
        myText2 = CDate(myText2)
        Dim myDifference
        myDifference = CDate(myText2) - myFormatedDate
        If myDifference > 0 Then
            'MsgBox "Thank you for previewing KartaNarrator by Karta Technologies. You have " & myDifference & " days left to use this software. To purchase the full up version of this product, please contact Karta Technologies at www.karta.com/kn."
            aboutform.userInfoBox.Text = "Thank you for previewing KartaNarrator by Karta Technologies. You have " & myDifference & " days left to use this software. To purchase the full up version of this product, please contact Karta Technologies at www.karta.com/kn" & Chr(13) & "or call 1-800-72KARTA."
            aboutform.Show
        Else
            aboutform.userInfoBox.Text = "The time has expired on this demo version of KartaNarrator. To purchase the full up version of this product, please contact Karta Technologies at www.karta.com/kn or call " & Chr(13) & "1-800-72KARTA."
            aboutform.Show
            End
        End If
    End Select




Then Then Edit them to look like this 
 
Case Is = "bomb"
        aboutform.userInfoBox.Text = "Thank you for purchasing KartaNarrator by Karta Technologies. If you enjoy using this product and would like to find out more about what Karta Technologies can offer you, please contact us at www.karta.com/kn by clicking the KartaNarrator logo on the control panel."
        aboutform.Show

Case Is = "new"
        Characters = GetProfileString("karnar", "start", "9", myText, 255)
        If Characters >= 1 Then
            myText2 = Left(myText, Characters)
        End If

        myNewDate = Date
        myFormatedDate = Format(myNewDate, "mm dd yy")
        myFormatedDate = CDate(myFormatedDate)
        myText2 = CDate(myText2)
        Dim myDifference
        myDifference = CDate(myText2) - myFormatedDate
        If myDifference > 0 Then
            'MsgBox "Thank you for previewing KartaNarrator by Karta Technologies. You have " & myDifference & " days left to use this software. To purchase the full up version of this product, please contact Karta Technologies at www.karta.com/kn."
            aboutform.userInfoBox.Text = "Thank you for previewing KartaNarrator by Karta Technologies. You have " & myDifference & " days left to use this software. To purchase the full up version of this product, please contact Karta Technologies at www.karta.com/kn" & Chr(13) & "or call 1-800-72KARTA."
            aboutform.Show
        Else
            aboutform.userInfoBox.Text = "The time has expired on this demo version of KartaNarrator. To purchase the full up version of this product, please contact Karta Technologies at www.karta.com/kn or call " & Chr(13) & "1-800-72KARTA."
            aboutform.Show
            End
        End If
    End Select