Erhalte Rückgabewert von der Funktion, die innen genannt wird Mit ... Ende mit Anweisung

Question

In einem meiner Ereignisse verwende ich "mit ... Ende mit Anweisung", also muss ich den Rückgabewert von einer Methode nehmen, die verwendete innerhalb des "With ... End With Statement"

Mit meiner ersten Art und Weise kann ich den Rückgabewert nehmen wie

Dim RetVal As MyApp.ErrorConstants 
RetVal = AgentApp.Login(txtUserName, txtPassword, txtStation) 

danach, ich werde meinen Code ändern, um mit ... End With Anweisung "und wie der Rückgabewert erhalten wird

Dim RetVal As MyApp.ErrorConstants 

With AgentApp 
    .Login txtUserName, txtPassword, txtStation 
    .DisplayMessages = 0 
    .UISettings.SuppressErrors = False 
    .UISettings.SuppressMessages = False 
End With 

Answer 1

können wir versuchen, so

Dim RetVal As MyApp.ErrorConstants 

With AgentApp 
    RetVal = .Login(txtUserName, txtPassword, txtStation) 
    .DisplayMessages = 0 
    .UISettings.SuppressErrors = False 
    .UISettings.SuppressMessages = False 
End With