Please Help me out
Sub deci()
    Dim LR As Long
    Dim Dash As Long, _
        Whole As Double
    Dim pi
    Sheets("Sheet3").Select
    LR = Range("C" & Rows.Count).End(xlUp).Row
    For r = 2 To LR
      s = Cells(r, 3)
      arr = Split(s, ",")
      For i = LBound(arr) To UBound(arr)
        Whole = 0
        P = InStr(arr(i), " IN")
       Worksheet = (Left((arr(i)), P - 1))
        Dash = InStr(Frac, "-")
        If Dash > 0 Then
            Whole = Left(Frac, Dash - 1)  ------------> getting error in this line(frac)
            Frac = Mid(Frac, Dash + 1, Len(Frac))
        End If
        af = Right(arr(i), Len(arr(i)) - P + 1)
        evfrac = Whole + Left(CStr(Evaluate(Frac)), 5)
     '   evfrac = Whole + Format(Evaluate(frac), "0.###")
        ss = ss & evfrac & af & ", "
      Next i
      Cells(r, 4) = Left(ss, Len(ss) - 2)
      ss = ""
    Next r
End Sub

 Function Frac(ByVal X As String) As Double
      Dim P As Integer, N As Double, Num As Double, Den As Double
         X = Trim$(X)
         P = InStr(X, "/")
         If P = 0 Then
            N = Val(X)
         Else
            Den = Val(Mid$(X, P + 1))
            If Den = 0 Then Error 11    ' Divide by zero
            X = Trim$(Left$(X, P - 1))
            P = InStr(X, " ")
            If P = 0 Then
               Num = Val(X)
            Else
               Num = Val(Mid$(X, P + 1))
               N = Val(Left$(X, P - 1))
            End If
         End If
         If Den <> 0 Then
            N = N + Num / Den
         End If
         Frac = N
      End Function