Function F_Numeric(ActiveCell)

Dim MyCell As String
Dim My_first_num As Long

My_first_num = 0
MyCell = ActiveCell
j = Len(MyCell)

For i = 1 To j
    If IsNumeric(Mid(MyCell, i, 1)) = True Then
        My_first_num = Mid(MyCell, i, 1)
        If IsNumeric(Mid(MyCell, i + 1, 1)) = True Then
            i2 = i
            j2 = 0
            Do
                i2 = i2 + 1
                j2 = j2 + 1
            Loop Until IsNumeric(Mid(MyCell, i2, 1)) = False
            My_first_num = Mid(MyCell, i, j2)
            Exit For
        End If
     Exit For
    End If
Next i

F_Numeric = My_first_num

End Function