Visual Basic Abrir formulário a partir de msgbox

[Jefferson TS]

Olá. Por gentileza alguém poderia me ajudar com a seguinte situação?
Preciso que quando clicar em SIM na msgbox seja aberto o formulário FormCadastro, e quando clicar em NÃO, feche a msgbox.

 

Sub msg_cadastro()
MsgBox "Fornecedor não cadastrado." + vbLf + "Deseja cadastrar?", 4, "Sem cadastro!"

Dim msgresp As VbMsgBoxResult
If msgresp = vbYes Then
FormCadastro.Show

Else
    
End If

End Sub

 

 

[Midori]

@Jefferson TS Msgbox é uma função, atribua a msgresp e teste o valor de retorno,

 

Sub msg_cadastro()
    Dim msgresp As VbMsgBoxResult
    
    msgresp = MsgBox("Fornecedor não cadastrado." + vbLf _
        + "Deseja cadastrar?", vbQuestion + vbYesNo, "Sem cadastro!")

    If msgresp = vbYes Then
        FormCadastro.Show
    End If
End Sub

 

[Jefferson TS]

Muito obrigado. Deu certo.