laranc

fibonnaci respondió: Si solo se trata de una substitución Puedes utilizar un "select case" (="en caso que...") Public Function encriptar(a as string)as string Dim b as string Select case a case "a" b="g" case "b" b="h" case "c" b="i" case else msgbox "error de select en...