Need to search cell for text string and paste text in based on finding

Hi,

I need to create a macro to do the following:

Search the activecell for a text string (a), and then either paste in text string (b) at the end of the cell if (a) is found, or text string (c) if (a) is not found.

For example, if the activecell has "AA/" in it, I want the cell to become "AA/01" (pasting in "01" at the end), and if the cell has just "AA" in it, I want it to still become "AA/01" (pasting "/01" at the end). The macro will be linked to a commandbutton.

Thanks for any advice.

Thanks for your response.

Is there a way to do this just searching for a string (the "/") using an if/then statement and then do a paste function based on the result? My paste code is:

Private Sub CommandButton18_Click()
ActiveCell.FormulaR1C1 = ActiveCell.Value & "k"
End Sub

That adds a "k" onto the active cell when I push the corresponding button.

So basically I want to set up the macro with two different paste commands, based on if that "/" is already in the cell or not. I just want to search the active cell when I push the button, not more than that.

Thanks again.

That works for when there is a /, thanks much.

Is there a way to enter a different text string (let's say a j instead of a k) if the "/" is NOT found in the cell? Maybe using an ELSE command?

Thanks very much!