Catgirl translator as a Macro in Word

catgirls.vba

Dim catgirls As String
catgirls = Selection.text
catgirls = Replace(catgirls, "hi", "nyanayn")
catgirls = Replace(catgirls, "pain", "ouchy-nyaouchy")
catgirls = Replace(catgirls, "angry", "hiss")
catgirls = Replace(catgirls, "hate", "hiss")
catgirls = Replace(catgirls, "hungry", "wrrrao")
catgirls = Replace(catgirls, "happy", "purr")
catgirls = Replace(catgirls, "small", "tinyi")
catgirls = Replace(catgirls, "kill", "scratch nya")
catgirls = Replace(catgirls, "cat", "nekyon")
catgirls = Replace(catgirls, "fight", "battle of the nya")
catgirls = Replace(catgirls, "no", "nyo")
catgirls = Replace(catgirls, "not", "mewot")
catgirls = Replace(catgirls, "yall", "nyall")
catgirls = Replace(catgirls, "the", "nye")
catgirls = Replace(catgirls, "okay", "oki-doki")
catgirls = Replace(catgirls, "ok", "oki-doki")
catgirls = Replace(catgirls, "catgirl", "nekyongurl")
catgirls = Replace(catgirls, "catgirls", "nekyongurls")
catgirls = Replace(catgirls, "catboy", "nekonboi")
catgirls = Replace(catgirls, "catboys", "nekyonbois")
catgirls = Replace(catgirls, "!", "meow!")
catgirls = Replace(catgirls, "?", "nya?")
catgirls = Replace(catgirls, "morning", "meowning")
catgirls = Replace(catgirls, "night", "meownight")
catgirls = Replace(catgirls, "good", "purrfect")
catgirls = Replace(catgirls, "bad", "purrfect")
catgirls = Replace(catgirls, "bye", "meowbye")
catgirls = Replace(catgirls, "byebye", "meowbye")
catgirls = Replace(catgirls, "bye-bye", "meowbye")
catgirls = Replace(catgirls, "bye bye", "meowbye")

Dim ludvik
Dim owos
catboys = Split(catgirls, " ")
Dim index
index = 0
For Each catboy In catboys
    catboy = Replace(catboy, "ma", "mya")
    catboy = Replace(catboy, "na", "nya")
    catboy = Replace(catboy, "me", "mewn")
    If UCase(Left(catboy, 1)) = "A" Or UCase(Left(catboy, 1)) = "E" Or UCase(Left(catboy, 1)) = "I" Or UCase(Left(catboy, 1)) = "O" Or UCase(Left(catboy, 1)) = "U" Then
        ludvik = ludvik & " ny" & catboy
    Else
        ludvik = ludvik & " " & catboy
    End If
    index = index + 1
Next

Selection.TypeText ludvik