Select OK on msgbox to clear Textbox1

[ipbr21054]

Hi,
Upon clicking yes on msgbox i would then like TextBox to be empty
I have the following in use but Textbox1 doesnt clear its value

If Not c Is Nothing Then
    If MsgBox("ARE YOU SURE YOU WISH TO DELETE CUSTOMER " & ListBox1.Text & "?", vbYesNo + vbInformation, "DELETE CUSTOMER FROM DATABASE") = vbYes Then
        Rows(c.Row).EntireRow.Delete
    
        MsgBox "THE CUSTOMER " & Me.ListBox1.Value & " HAS NOW BEEN DELETED", vbInformation, "CUSTOMER DELETED MESSAGE"
    End If
    
        MsgBox "DELETE ANOTHER CUSTOMER ?", vbYesNo + vbQuestion
    If answer = vbYes Then
          TextBox1.Value = ""
    End If
        
    Else
        MsgBox "THE CUSTOMER " & Me.ListBox1.Value & " WAS NOT DELETED", vbInformation, "CUSTOMER WAS NOT DELETED MEAASGE"
        Range("A6").Select
    End If
    
    Set c = Nothing
    
End Sub

 

[DanteAmor]

Try :

  Dim answer As VbMsgBoxResult
  
  If Not c Is Nothing Then
    If MsgBox("ARE YOU SURE YOU WISH TO DELETE CUSTOMER " & ListBox1.Text & "?", vbYesNo + vbInformation, "DELETE CUSTOMER FROM DATABASE") = vbYes Then
        Rows(c.Row).EntireRow.Delete
    
        MsgBox "THE CUSTOMER " & Me.ListBox1.Value & " HAS NOW BEEN DELETED", vbInformation, "CUSTOMER DELETED MESSAGE"
    End If
    
    answer = MsgBox("DELETE ANOTHER CUSTOMER ?", vbYesNo + vbQuestion)
    If answer = vbYes Then
          TextBox1.Value = ""
    End If
        
    Else
        MsgBox "THE CUSTOMER " & Me.ListBox1.Value & " WAS NOT DELETED", vbInformation, "CUSTOMER WAS NOT DELETED MEAASGE"
        Range("A6").Select
    End If
    
    Set c = Nothing

 

[ipbr21054]

Many thanks that did it