terça-feira, 11 de novembro de 2008

MsgBox & InputBox

Para quem quer comunicar algo por caixa de texto: msgbox.

Para quem quer pegar informação por caixa de texto: inputbox.

Exemplo:

Sub meu_time()
nome = InputBox("digite o nome do seu time")
If nome = "Flamengo" Then
MsgBox ("Parabéns!!!")
Else
MsgBox ("Coitado...")
End If
End Sub

Leitura complementar em bugsa

Nenhum comentário: