??? ????

Bueno seria mejor que uses un Case para cada uno Select Case variableopcion case 1 instrucción(es) case 2 instrucción(es) case 3 Instrucción(es) … Case Else instrucción(es); End Select

jerryeagle respondió: Yo mejor lo pondría en un Archivo XML, es mas fácil leer y actualizar: 'Para Crearlo Public Sub CrearXMLusuarios() Dim xDoc as XDocument = <?xml version="1.0" encoding="utf-8"> <Usuarios> <Usuarios> xDoc.Save("NombreDeArchivo.xml") End Sub 'Para...