Private Function Extract_Number_With_Decimal(ByVal strString As String) As Double
    Dim blnHasDecimal As Boolean, i As Integer
    Dim s As String
    
    strString = Trim$(strString)
    If Len(strString) = 0 Then
        Exit Function
    End If
    
    For i = 1 To Len(strString)
        Select Case Mid$(strString, i, 1)

            ' provjeri dali je znak broj
            Case "0" To "9"
                ' dodaj u string ako je
                s = s & Mid$(strString, i, 1)

            ' znak je tocka ili zarez
            Case ".", ","
                If Not blnHasDecimal Then
                    blnHasDecimal = True
                    s = s & "."
                End If
        End Select
    Next i
    Extract_Number_With_Decimal = Val(s)
End Function