Mensagem de ERRO falsa em .vbs

Mensagem de erro falsa em .vbs
Como criar caixas de mensagens para enganar
E simples entra no Bloco de notas e digite

x=MsgBox("Aqui vc digita o conteudo da mensagem",1+15,"Aqui vc digita o titulo da mensagem")

os números em cima indicam como sera a caixa de mensagem

o número 4 antes do sinal de mais indica que botões apareceram na caixa de mensagem você pode mudar este número

0 -> Ok
1 -> Ok e Cancelar
2 -> Abortar, Tentar e Ignorar
3 -> Sim, Não e Cancelar
4 -> Sim e Não
5 -> Tentar e cancelar

e onde está o número 48 pode ser colocado

16 -> Caixa de erro critico
32 e 48 -> Caixa de Cuidado


E possivel colocar mais de uma mensagem é só colocar novamente o codigo na linha de baixo

depois de feito é só salvar com extensão .vbs (Visual Basic Script)
EX: nome.vbs