Public Sub Button1_Click()
Dim a As Byte
a = 1
If a = 0 Then Print "alibaba" Else Print "simbad"
End
Anche se a me non piace scrivere codice tutto in una riga, perchè poi è di difficile lettura, la cosa può essere utile, anche se solo a livello grafico (di editing, ovviamente...).Sono dello stesso identico parere. :D
Sarebbe stato più utile inserire una sintassi compatta per l'IF inline