Function to grab info in middle of string

I want to put together a function that grabs the 23.85 out of a string like this

$23.85@74%11-14-07

or the 353.67 out of a string like this

$353.67@42.9%11-14-07

but haven't the slightest idea how to program the logic that would grab that out of a string. Can someone give me some direction?

=mid(a1,2,find("@",a1,1)-2)

Hi

If it is always between the $ and the @ you can use these as markers to identify the string element you want to remove. The following assumes the $ is always the first $ in the string, and likewise with the @:

Dim strComplete As String
strComplete = "$23.85@74%11-14-07"

Msgbox Split(Split(strComplete,"$")(1),"@")(0)

Richard

Thanks everyone for your help but I was looking for code for a function.

Richard,
You hit the nail on the head, that works perfectly thanks. Here are my results

Public Function REF(Cell As String) As String
If InStr(Cell, "@") <> 0 Then
REF = Split(Split(Cell, "$")(1), "@")(0)
Else
REF = ""
End If
End Function