Dúvidas com Msgbox vbyesno[resolvido]

[kikoehu]

Olá a todos;
Poderiam me ajudar neste problema.
Tenho um código de comando vba que ao clicar no botão avançar(Cob_avançar) surge uma msgbox caso a pessoa que está a preencher o formulário esqueça de acrescentar uma observação através do textbox1, portanto ao clicar no botão avançar surge a msg :Deseja acrescentar uma observação?
Meu problema é:
Se por ventura a pessoa preencher o textbox, gostaria que a pergunta do msgbox yesno mudasse para: "Prosseguir?" caso positivo, passe para o proximo userform, caso negativo, volte ao textbox1.
Segue comando que estou utilizando. Desde já Obg.
Private Sub Cob_avançar_Click()
Dim Resultado As VbMsgBoxResult
Resultado = MsgBox("Deseja acrescentar uma observação?", vbYesNo, "Aviso")
If Resultado = vbYes Then

TextBox1.SetFocus
Exit Sub
Else
UserForm5.Hide
UserForm6.Show
End Sub

[webmaster]

kikoehu,

Bastaria testar o conteúdo do textbox. Qual a dúvida?

[kikoehu]

Acho que me expressei de forma errada.
Quando a Textbox1 está em branco e se clica no botão Cob_avançar, surge a MsgBox("Deseja acrescentar uma observação?", vbYesNo, "Aviso"); Ok, então ao clicar em sim ,a pessoa é enviada de volta ao textbox1, para digitar uma possivel observação. Então ela escreve alguma observação. Ao clicar novamente no botão Cob_avançar a mesma pergunta é feita, quando na verdade eu gostaria que esta pergunta do msgbox após inserir algum texto dentro do textbox1, mudasse para um msgbox yesno escrito: "Prosseguir?".

[webmaster]

-- Quando a Textbox1 está em branco e se clica no botão Cob_avançar, surge a MsgBox("Deseja acrescentar uma observação?", vbYesNo, "Aviso");
Isso já está feito no código

-- Ok, então ao clicar em sim ,a pessoa é enviada de volta ao textbox1, para digitar uma possivel observação.
Também

-- Então ela escreve alguma observação. Ao clicar novamente no botão Cob_avançar a mesma pergunta é feita, quando na verdade eu gostaria que esta pergunta do msgbox após inserir algum texto dentro do textbox1, mudasse para um msgbox yesno escrito: "Prosseguir?".
Assim?

Código: Selecionar todos

MsgBox("Prosseguir?", vbYesNo, "Aviso")

[kikoehu]

Então eu preciso de uma tratativa que faça com que meu codigo entenda que há algo escrito no textbox1, fazendo com que ele pule a etapa do msgbox anterior que é MsgBox("Deseja acrescentar uma observação?", vbYesNo, "Aviso"); e pule pra outra msgbox ("Deseja Prosseguir"),vbyesno.

[webmaster]

kikoehu,

Vai precisar disso:

https://www.tomasvasquez.com.br/blog/mi ... then-else/

E disso:

https://www.tomasvasquez.com.br/blog/mi ... a-else-if/