por lo poco que se ve del codigo desde ya te digo que no esta identado.
Identado ? que quisiste decir ? saludos
lauchon_ao identar el código quiere decir "estructurar" de alguna manera tu código para hacerlo más comprensible y fácil de editar el día de mañana o bien para entenderlo más fácilmente por otros programadores si liberas tu código, te pongo un ejemplo.
Código sin identar:
If x = 1 Then
MsgBox ("hola",vbInformation)
Else
MsgBox("adios",vbinformarion)
End If
Select Case a
Case 1:
If Text1.Text="hola" Then
MsgBox ("adios", vbinformation)
ElseIf Text1.Text="hasta luego" Then
Msgbox ("hasta luego", vbinformation)
Else
Msgbox ("No saludo", vbinformation)
End If
Case 2:
If Text2.Text = "Buenos días" Then
MsgBox("Buenos días",vbinformation)
ElseIf Text2.Text = "Buenas tardes" Then
MsgBox("Buenas tardes",vbinformation)
Else
MsgBox("Maleducado, salúdame!",vbinformation)
End If
End Select
Código identado:
If x=1 Then
MsgBox ("hola",vbInformation)
Else
MsgBox("adios",vbinformarion)
End If
Select Case a
Case 1:
If Text1.Text="hola" Then
MsgBox ("adios", vbinformation)
ElseIf Text1.Text="hasta luego" Then
Msgbox ("hasta luego", vbinformation)
Else
Msgbox ("No saludo", vbinformation)
End If
Case 2:
If Text2.Text = "Buenos días" Then
MsgBox("Buenos días",vbinformation)
ElseIf Text2.Text = "Buenas tardes" Then
MsgBox("Buenas tardes",vbinformation)
Else
MsgBox("Maleducado, salúdame!",vbinformation)
End If
End Select
Como puedes ver el código identado es mucho más comprensible y agradable a la hora de leerlo, y te será mucho más fácil encontrar lo que buscas y editar tu código en un futuro además de facilitar el trabajo si esque haces el código fuente en equipo o lo compartes con más gente. Además es recomendable comentar el código para saber más o menos que hacía cada cosa, dentro de unos meses si vuelves a mirar tu código te lo agradacerás tu mismo