Public Function AsignarG(Getgender As String) As String
Dim piel As String

piel = "<set id=""620"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""626"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3096"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""180"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""207"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3091"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""205"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""190"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3092"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""625"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""185"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""195"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3093"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""610"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3097"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""200"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""600"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""615"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3098"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""206"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3094"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""627"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""605"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3099"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""208"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""209"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3095"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""628"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""629"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3100"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3101"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3102"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3103"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3104"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3105"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
piel = piel & "<set id=""3106"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"

If InStr(piel, "<set id=""" & Getgender) Then
Getgender = Split(piel, "<set id=""" & Getgender & """ gender=""")(1)
Getgender = Split(Getgender, """")(0)
AsignarG = Getgender
End If



End Function

habbo reconocedor de sexo

Visual Basic