Dim text As String = "abcdefghijklmnopqrstuvwxyz"
 
        text = text.Replace("b", "*1*")
        text = text.Replace("d", "*2*")
        text = text.Replace("g", "*3*")
        text = text.Replace("n", "*4*")
        text = text.Replace("p", "*5*")
        text = text.Replace("q", "*6*")
        text = text.Replace("u", "*7*")
 
 
        text = text.Replace("*1*", "q")
        text = text.Replace("*2*", "p")
        text = text.Replace("*3*", "b")
        text = text.Replace("*4*", "u")
        text = text.Replace("*5*", "d")
        text = text.Replace("*6*", "b")
        text = text.Replace("*7*", "n")
 
        Dim neuertext As String = text