Simple string slice

[Bruce Fox]

Here is one way, but it isn't efficient:

Option Explicit
 
Private Sub CommandButton1_Click()
 
    MsgBox Slice_Text("apple#orange")
    MsgBox Slice_Text("apple#grape")
    MsgBox Slice_Text("pineapple#mango")
 
End Sub
 
Private Function Slice_Text(ByVal strIn As String) As String
 
    Slice_Text = Split(strIn, "#")(1)
 
End Function