[VB6]operatore logico

[Stefanik]

Fatto:

Dim Stringa As String
Dim LungStringa As Long
Dim Appo As Long

Stringa = Text3.Text
LungStringa = Len(Stringa)
Appo = 1
Do While Not Appo > LungStringa
  MsgBox Mid(Stringa, Appo, 1)
  Appo = Appo + 1
Loop